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SUMMARY 


The axial vibration response of a gas bearing system representative of the NASA 
A"-engine turbocompressor simulator mounted on isolators with nonlinear character- 
istics has been analyzed. The equations of motion for a three-mass model were 
integrated numerically using a fourth-order Runge-Kutta method and the computa- 
tions were programmed for solution on a digital computer. The types of vibra- 
tion input that can be dealt with by the computer program include the following: 
sinusoidal vibratipns, half-sine or haver sine shock pulses, or any arbitrary 
shock or vibration expressed in tabular form in terms of displacement of accelera- 
tion versus time. The vibration analysis of the A-engine turbocompressor simula- 
tor given in this report represents an extension of previously reported work in 
Part I where a three-mass model was used which had mounting isolators represented 
by constant stiffness and constant damping coefficients. 

The axial random vibration response of the NASA Brayton Rotating Unit (BRU) was 
analyzed with the BRU represented by a three-mass linear system. From the equa- 
tions of motion, the relationship between the response power spectral density 
(PSD) and the input random vibration PSD was derived and expressed in terms of 
transfer functions. A computer program was written to calculate the PSD's and 
the mean squared values of the responses from specified input random excitations. 
The calculated response based on this linearized lumped-parameter model was found 
to be generally smaller than the measured values. A parametric study using the 
computer program was carried out to investigate the dependence of the random 
vibration response on various elements of the system, for example, the stiffness 
of the connectors between the BRU and the shake table, the stiffness of the 
gimbal support, the combined mass of the gimbal and thrust bearing, and the 
stiffness and damping coefficients of the thrust bearing gas film. It was found 
that the root-mean-square value o-f the gas-film thickness variation in the thrust 
bearing decreases significantly with increasing stiffness of the engine mounts, 
but is relatively insensitive to changes in mass and stiffness of the thrust 
bearing gimbal support. High values of gas-film dynamic stiffness and damping 
are desirable to achieve low thrust bearing gas-film thickness variations in a 
random vibration environment. 



Vibration testing of the BRU was conducted, with both sinusoidal and random vi- 
brations applied both along and across (one axis) the shaft axis of rotation. 

Tests were conducted with and without shaft rotation. Proximity probes and 
accelerometers were used to observe the response of the BRU components to the 
externally- imposed vibrations, and representative data has been extracted from 
the large quantity recorded and is presented herein. Complete data reduction is 
scheduled for a future effort .- 

In summary, further efforts to increase the ruggedness of the BRU bearing system 
were found to be necessary because of the onset of journal and thrust bearing 
surface contacts at relatively low random vibration levels (NASA Specification 
417-2 Rev. C for Electrical Generating System Components - Operating). Sinusoidal 
vibration inputs to the BRU in the frequency range 5 to 35 Hz (according to the 
same aforementioned specification) did not produce any noticeable bearing system 
resonances and rotor-bearing operation was generally satisfactory in that operating 
region. However, significant bearing-system resonances were observed in the fre- 
quency range 60 to 400 Hz. Chrome-oxide bearing surface coatings were found to 
be instrumental in permitting multiple bearing surface contacts without evidence 
of degradation. 
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INTRODUCTION 


The steadily progressing development of Brayton Cycle Systems for space-power 
generation has now reached the stage where adaption of the equipment to space 
environmental and launching conditions must be accomplished . 

Brayton Cycle power systems consist basically of a closed gas loop in which an 
inert gas is heated in a heat source (reactor Or isotope) and then, through one 
or more turbines, drives an alternator and a compressor before being cooled 
again in a recuperator and radiator. The rotating parts of this equipment are 
supported by gas bearings which utilize the working gas from the system. The 
utilization of gas as a medium for the separation of moving surfaces in the 
bearings eliminates most of the problems associated with other methods of lubri- 
cation at the high temperatures and speeds involved. Considerable attention 
mustj however, be given to preventing motions between rotating and nonrotating 
parts that might result in sustained contacts between the parts, leading to 
bearing performance degradation or possibly even catastrophic failure. 

Under Tasks I and II of this contract, an analytical and experimental study was 
conducted on the effects of shock and sinusoidal vibrations upon the performance 
of a gas bearing machine representative of the type then under consideration for 
space-power applications, (Reference 1). Since then, equipment specifically 
built for a space-power system of approximately 10 KWe maximum output has suc- 
cessfully undergone steady-state testing at the NASA Lewis Research Center, and 
components of this system became available for vibration environment testing. 

For the tests, the turbine and compressor wheels were replaced by rotor masses 
of similar weight (BRU simulator configuration). 

In the analytical portion of this investigation a computer program previously 
developed (Reference 1) for the calculation of axial rotor responses under 
sinusoidal vibrations and shock was extended from linear to nonlinear representa- 
tion of the isolator mounts. In addition, a computer program was developed for 
analytical prediction of the axial rotor response under random vibrations. 
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DEVELOPMENT OF ANALYTICAL METHODS 


Analytical methods for vibration analysis have been developed for prediction of 
the following vibration characteristics of gas-bearing turbomachinery dynamically 
similar to the BRU: 

1) Axial vibration response of the turbomachine to specified shock and 
sinusoidal vibration excitation with the turbomachine supported on 
nonlinear isolator mounts. 

2) Axial response of the turbomachine to specified random excitations. 

Nonlinear Element Shock and Sinusoidal Vibration Calculation Methods 

A schematic of the turbocompressor simulator mounted on the test stand with its 
axis of rotation vertical is shown in Figure 1, which is reproduced from Figure 
1 of Reference 1. The axial vibration response of this turbocompressor simulator 
was analyzed in Reference 1 by using the three-mass model shown in Figure 2, except 
that linear isolator stiffness and damping properties were assumed in Reference 1. 

The three masses shown in Figure 2 represent the lumped masses of the following 
turbocompressor elements, starting with the base and proceeding upward; 

1) The turbocompressor simulator casing; 

2) The thrust bearing housing, flexure and thrust plate; 

3) The rotor. 

The nonlinear properties of the isolators are represented by a nonlinear stiff- 
ness k^(x) and a nonlinear damping coefficient c^(x). The equivalent stiffness 
and damping coefficient of the thrust bearing housing and flexure are both con- 
stant values and are represented by and c ^ respectively. The nonlinear gas 
film force is represented by G(h,h). 

An improved analysis of a more general three-mass model, shown in Figure 3 and 
including nonlinear isolator properties, is presented in Appendix A. This 
analysis is an extension of that presented in Reference 1. The computer program 
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implementing the analysis reported in Reference 1 has also been modified, a - >i is 
presented in Appendix B. The flow chart which describes the modified cc-..i put 
program is shown in Figure 4. Note that when the calculation type is 
"isolators", there are three choices: 

1) Linear Isolator (analysis and computer program of Reference ] d 

2) Isolator represented by prescribed nonlinear functions 

3) Isolator represented by table inputs. 

The thrust bearing gas film load capacity and damping coefficient characteristics 
can be represented by either of the following two types of nonlinear functions: 

a) An exponential function of the form: 

Ae“ Bh 

where h = mean thickness of thrust bearing gas film, 
e = base of natural logarithms, 

and A and B are constants selected by the user to give the best practi- 
cal approximation to the nonlinear characteristics of the thrust 
bearing gas film as calculated from rigorous lubrication theory, and 

b) A power function of the form: 

Ch~ D 

where C and D are arbitrary constants used to obtain a curve fit. 

The actual nonlinear functions for the load capacity and damping coefficient 
for the NASA A-Engine turbocompressor simulator thrust bearing gas film are 
shown in Appendix A. 

The extended computer program will handle each of the four different types of 
base forcing functions shown in Figure 4. These functions may be expressed 
either as base displacement or base acceleration and include sinusoidal vibra- 
tion and three types of shock pulses. 

Figure 5a shows the measured response of the thrust bearing gas film thickness 
to the applied shock pulse shown in Figure 5b. These are the measured data 
shown in Figure 41 of Reference 1. In the same figure calculated thrust bearing 
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film thickness data is shown as a function of time for the case in which the 
simulator was mounted on lineax isolators. Calculated results compare poorly 
with measured results (it should be noted that good agreement was reported in 
Reference 1 when- the measured acceleration function above the isolators was used 
as input to the calculation. ) 

The calculations were repeated using the extended analysis and improved computer 
program and with the isolators represented by their measured static stiffness 
curve, as shown in Figure 6 and an estimated constant damping value of 13.0 
lb. sec/in. The circulated points in Figure 5a are the calculated responses using 
the improved program. Relatively poor correlation witn measured results was 
obtained. 

In order to Investigate further possible reasons for this poor correlation it 
was decided to determine the sensitivity of the calculated response values to 
variations in the isolator properties, and thus to indicate the areas in which 
the stiffness and damping values may differ significantly from actual values. 
First, damping was held constant and stiffness was varied successively to half, 
twice, and four times nominal. Different results were noted, but none resembled 
the measured values. Next, stiffness was held constant and damping was varied. 
With damping equal to one-quarter of the nominal value, the calculated data 
denoted by squares in Figure 5a were obtained. While the calculated peak film 
thickness occurs somewhat earlier than the corresponding measured peak, the 
relative peak sizes are comparable. While no reasons exist for good correlation 
subsequent to the apparent thrust-runner impacts, the physical system appears 
to have settled down quickly enough after the impacts such that response to 
the imposed shock is reasonably close to the calculated results. While these 
results are promising, it appears that the least-known element of the system is 
still the isolator, and that a more complete understanding of the elastomeric 
damping would be highly desirable. 

In summary, a vibration analysis has been developed and incorporated in a 
computer program for predicting the thrust bearing gas film thickness as a 
function of time for a general class of gas-bearing turbomachinery, mounted on 
nonlinear isolators and subjected to shock and sinusoidal vibration. The 
computer program has been verified to the limits within which the isolator 
dynamic stiffness and damping properties are known. 


6 



Random Vibration Calculation Methods 


Gas-bearing space-power Bray ton-cycle turbomachinery will be subjected to various 
vibration and shock conditions during its normal operating cycle. Reference 1 
and the previous section deal with the response of this class of power-generating 
equipment to half-sine shock and sinusoidal vibrations. This section of the 
report presents an analysis of the response of this type of turbomachine , 
particularly the Brayton Rotating Unit (BRU), to specified random vibration 
excitations. General information on the design and fabrication of the BRU was 
reported in References 2 and 3. A schematic of the BRU with its shaft axis 
vertical is shown in Figure 7. 

For purposes of the present study we distinguish at the outset between two 
basically different types of vibration: deterministic and random. Deterministic 

vibration is characterized by the fact that its amplitude can (in principle at 
least) be predicted as a function of time providing that enough of its time 
history is available to an observer. The amplitude of a random vibration record 
cannot be predicted, regardless of how much of its past history is known. Random 
vibration can only be analyzed in a statistical manner. That is, the more data 
that we have on the time history, the more precisely we can predict the prob- 
ability that the amplitude will lie within specified values. 

These probabilities are customarily described in terms of the Power Spectral 
Density (PSD) of Random Vibration. The PSD has a precise mathematical defini- 
tion which is used in random vibration analysis but this section will try to 
introduce the concept and some associated implications in a descriptive manner, 
temporarily without regard for the more precise mathematical tools which will 
be needed later. 

Figure 8 introduces the concept of PSD by means of a schematic based on one 
which appears on Page 30 of Reference 4. Consider the acceleration time history, 
a(t), as the input to the system, the first element of which represents a 
narrow band filter with a center frequency, f, and a bandwidth, Af (f might 
be 20 Hz for example and Af might be the 1-Hz band between 19.5 and 20.5 Hz). 

The output of the first element would then be the time history of the accelera- 
tion at the frequency 20 Hz, represented by g(t). Let the second element be a 
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2 

squaring device. The Input to the third element would therefore be g (t). 

2 

The third element yields the time average of the function g (t) by integrating 
and dividing it by the total time. The fourth element takes the output of the 
third and divides it by the filter bandwidth, A f (which is 1-Hz in this simple 
example). The four elements in series have converted an accelerometer record 
into the acceleration power spectral density (PSD) at 20 Hz. If the filter is 
subsequently retuned to 21 Hz with a bandwidth of from 20.5 Hz to 21.5 Hz, 
another PSD value is obtained for the 21 Hz frequency setting. By repeating 
this process, the entire frequency range of interest may eventually be covered, 
and a complete PSD curve obtained. In obtaining the PSD by this method, two 
precautions are usually observed: 

1) The averaging time, T, should be long, compared to the longest vibra- 
tion period of interest; and 

2) The filter bandwidth, Af, should be small, compared to the center 
frequency f. 

Because of this latter assumption, analysis time is often saved by using a 
wider bandwidth filter to measure the PSD at higher frequencies. This is, in 
fact, done in practice. The reader wishing to gain a more thorough description 
of this process is referred to Reference 6. References 5, 6, 7 and 8 are 
brief introductory presentations on random vibration theory and practice while 
References 4, 10, and 11 are texts on random vibration and noise. 

Figure 9, based on Reference 6, illustrates in a simple manner the basic differ- 
ence between the types of mechanical response that one might expect for random 
and for sinusoidal vibration. This figure shows two cantilever beams attached 
to a rigid base lying in the plane of the paper. The beams project upward 
from the paper and are of sufficient length to permit them to vibrate along the 
lines AC and BC respectively. For purposes of discussion, one might assume 
that we apply sinusoidal vibration as shown at a very low frequency and start 
to sweep upward in frequency while maintaining a constant amplitude. Eventually 
we reach a frequency at which beam A goes into resonance and swings along line 
AC at large amplitudes, assuming that the first natural frequencies of the beam 
are separated. Beam B does not vibrate much while A is in resonance. At some 
higher frequency the resonance of beam A dies out, and eventually B executes 
wide swings along BC as we approach the natural frequency of B. Since A and B 
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resonate at different frequencies, sinusoidal vibration testing of the system 
should reveal that beams A and B do not collide. If we were conducting a 
random vibration test on the same system then we would simultaneously subject 
the system to a wide range of frequencies. Hence if the natural frequencies of 
both beams lie within the bandwidth of applied random vibration, it is conceiv- 
able that the beams resonate simultaneously resulting in a collision somewhere 
below the point C. The likelihood of this occurring would, of course, depend 
upon the specific system properties as well as the applied vibration characteris- 
tics. The point is that there is a difference in the actual response and not 
just a conceptual difference between sinusoidal and random vibration. 

The actual dynamic environment associated with spacecraft operation is primarily 
random rather than deterministic. The origin and nature of this dynamic environ- 
ment is presented in Reference 12. 

The random vibration test specification of principal concern here is in Section 
3. 5. 1.2. 2 of Reference 13. This paragraph of the reference specification applies 
to the electrical generation system (EGS), and is quoted below for easy reference. 

The EGS shall withstand random noise excitation over a frequency range 
of 20 - 2000 Hz for 3 minutes in each of three mutually perpendicular 
„ axis, as specified below. 

20-100 Hz 3 db/Octave increase 

100-2000 Hz .015 g 2 /Hz 

These are to be input levels at the interface between the EGS structure 
and the flight vehicle structure. 

Figure 10 is a graph of the above PSD specification. Note that the unit of 
2 

this PSD is g /Hz. Therefore, the area under this curve has the dimensions of 
2 

g . The square root of this area represents the value of an acceleration in 
g - units. The equation for determining this area may be found in References 14 
and 15 which are brief magazine articles devoted entirely to the subject of 
calculating the area under random vibration test specifications of the type under 
consideration. The square root of the area under the PSD curve can be interpreted 
physically as the root mean square of the accelerometer reading in g's. 
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Figures 11 and 12 represent additional sections of the Reference test speci- 
fication. They' are included in this report because the analysis techniques 
and computer program were developed with sufficient generality to treat any 
structure subject to any input PSD specification, as long as the structure 
can be adequately represented by a 3-mass vibrational model similar to the 
one presented in Figure 13. 

The Brayton Rotating Unit (BRU) may be represented by a linear, discrete- 
parameter system which converts a particular input into a specific output in 
accordance with the system properties. Suppose that the PSD specified in 
Figure 10 is chosen to be the input. The output could then be expressed in 
various ways, and the coordinates most likely to be of value to the designer 
should be selected. 

For the Brayton Rotating Unit, the relative displacements between the various 
mass points shown in Figure 13 are considered to be the most important output 
parameters. This is because the film thickness of the gas thrust bearing is 
of primary concern in this program of study; the relative displacement between 
m^ and m^ shown in Figure 13 would yield information on the gas film thickness 
variation due to random vibration excitations. 

In Appendix C, the equations of motion for the system shown in Figure 13 
are derived. The transfer functions between the input and output PSD's are 
also derived, based on the known system properties as described in the equa- 
tions of motion. The PSD’s of the relative displacements between various mass 
points can then be calculated from the transfer function and the input PSD. 

Appendix D contains a complete listing of the computer program based on the 
analysis given in Appendix C. The input acceleration PSD of Reference 13 is 
included in the program as a sub routine. The values of the masses, stiffnesses 
and dampings are inputs as to the computer program and can be specified by the 
user. Also included in Appendix D are instructions for preparing input data 
cards, sample input and sample printed output. 
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Results of Axial Random Vibration Response Calculation for Brayton Rotating Unit 

The foregoing analysis was applied to the Brayton Rotating Unit for the case of 
axial random vibration applied to the BRU with shaft rotation. Before giving 
the results of the random vibration response calculations, it is appropriate to 
describe the inputs to the program. 


Inputs 


m^ = mass- of the BRU housing structures 96 lb. 
m 2 =? mass of the gimbal and thrust bearing = 7 lb. 
m^ = mass of the rotor = 21 lb. 

k^ = stiffness of connector between the BRU and shake table 
= 300,000 lb. /in. 

k 2 = stiffness of the gimbal support 

= 250,000 lb. /in. (from page 79 of Ref. 3) 


k^ = stiffness of the gas thrust bearing 


= 113,500 lb. /in. 


= 0.02 


lb sec 
in 


c^ = damping coefficient of connector = 0 

lb S6C 

C 2 = damping coefficient of gimbal support = 0.02 — ^ — 


c^ = damping coefficient of gas thrust bearing = 84 


lb sec 
in 


The above values of the masses, stiffnesses and damping coefficients are the 
nominal values and are summarized in Table I. 


Table I. 

Nominal Values of the Lumped Masses, Stiffnesses, 
and Damping Coefficients of an Axial Vibration 
Model of the Brayton Rotating Unit 

Element 

m (lb) 

k (lb /in) 

c(lb sec/in) 

1 

96 

300,000 

0.02 

2 

7 

250,000 

0.02 

3 

21 

113,500 

84.00 
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It should be noted that the values of k^, k^ and c^ are only nominal values. 

With respect to the stiffness k^, there are three connectors between the BRU and 
the shake table. Each is bolted down at one end to the shake table. When the 
unbolted end of the connector tends to move up, the connector behaves like a 
cantilever with a calculated stiffness of 75,000 lb/in. at the BRU mount point. 

But for downward motion the cantilever arm is considerably shorter and thus much 
stiffer. This stiffness is calculated to be about 1,200,000 lb/in. for the 
purpose of this analysis, a nominal value of k^ = 300,000 Ib/in. is chosen. 

The stiffness and damping characteristics of the gas thrust bearing are functions 
of frequency and bearing clearance-. They have been calculated by an existing 
gas-bearing computer program and tabulated in Tables II and III. It is seen 
that they both vary widely with frequency and bearing clearance. Since the 
random vibration analysis is limited to a linear, time -invariant system, the 
stiffness and damping coefficients must have fixed constant values. The nominal 
values of k^ and c^ are chosen at a frequency of 100 Hz and with a film thickness 
of 0.0005 inch (the total axial clearance in the thrust bearing is 0.0021 inch). 

The test objective power spectral density S Q is shown in Figure 10. During actual 
testing of the BRU, to be described below, it was found that frequent touching of 
the gas thrust bearing surfaces (possibly to the point of failure) would have 
occurred if it had been attempted to subject the BRU to the full level of this 
vibration specification. Tests were therefore performed with reduced input PSD 
values (i.e, the shape of the PSD was preserved, but the magnitude of the PSD was 
reduced by a constant factor, a, across the whole spectrum). From the definitions 
of the power spectral density and the root-mean-square value, the root-mean- 
square value is reduced by a factor of Vo' when the power spectral density is 
reduced by a factor of a across the whole spectrum. 
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Now the root mean square (RMS) acceleration of the PSD in Fig. 10 is 5.4g. 
Testing was performed on the BRU at reduced PSD with the same shape of Fig. 10 
but with several RMS acceleration levels including 0.54g. The response PSD 
is calculated based on this 0.54g RMS acceleration. Thus, yr =%% = o.i 
and a = 0.01. 

With the above input values of masses, stiffnesses and damping coefficients, 
and input PSD of Fig. 10 with a =0.01, the response PSD's Sy , Sy£ and Sy^ 
were calculated and are shown in Fig. 14, 15 and 16 respectively. Note that 
y^, and y^ are the relative displacements between m^ and base, m^ and m^, and 
and m^ respectively. The area underneath the PSD curve represents the mean 
square value of the respective quantity. 

2 -g 2 

E(y^) = mean square value of y^ = 9.125 x 10 in. 

2 -8 2 

E( y 2 ) = mean square value of y^ = 1-753 x 10 in. 

2 -g 2 

E(y^) = mean square value of y^ = 5.164 x 10 in. 

The square root of the mean square value is the root mean square (RMS) value. 
Thus, 

RMS of y^ = 0.226 x 10 ^ in. 

The RMS of y^ is the statistical average of the response of the gas thrust 
bearing film thickness. This is to be compared with the measured value of 
0.35 x 10 ^ in. 

The power spectral densities shown in Figures 14, 15 and 16 and the RMS value 
of thrust bearing gas film variation are for the nominal case of the Brayton 
Rotating Unit with values of the lumped masses, stiffnesses and damp in;: shown 
in Table I. In order to determine the sensitivity of the results to changes 
in these quantities, a parametric study was carried out by varying k^, m^, 

k, and c, individually from their nominal values. Variation of the RMS value 
of the gas film thickness with changes in the above parameters was sought. 
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The RMS value 


The first parameter to be varied was the connector stiffness k^ . 

y^ was calculated for various values and is plotted against k^ in Fig. 17. 

It is seen that the RMS value of increases with decreasing k . Therefore, 

any attempt to install a softer connector between the shake table and the BRU 

should increase the RMS value of the gas film variation. When k 1 = 100,000 

-3 ^ 

lb/in, for example, the RMS value of y^ is 0.359 x. 10 in. The PSD of y^ is 
shown in Fig. 18 for this case. Note that the peak value is considerably higher 
than that of the nominal case shown in Fig. 16. 

Using the nominal values of Table I but varying the gimbal stiffness, k^, 
the RMS value of y^ was next calculated and is plotted in Fig. 19. It is 
clear that the RMS value of y^ is insensitive to the gimbal stiffness in the 
range being studied. In another study, the variation of the RMS value of y^ 
with changes in gimbal and thrust bearing mass m 2 was studied. The results 
are presented in Fig. 20. 

The gas film dynamic stiffness and damping characteristics vary considerably 
with the frequency and the film thickness as shown in Tables II and III. In 
the nominal case the gas film stiffness and damping values were chosen at a 
frequency of 1,000 Hz and a gas film thickness of 0.0005 inch (with a total 
thrust bearing clearance of 0.0021 inch as indicated earlier). The gas film 
characteristics were next varied using the values of Tables II and III. The 
resulting calculated RMS values of the gas film variations are tabulated as 
follows : 


Gas Film 

RMS Value of Gas 
Film Thickness 
Variation (in) 

Dynamic 

Stiffness 

(lb/in) 

Dynamic Damping 

Coefficient 

(lb-sec/in) 

20,000 

33 

0.391 x 10' 3 

168,000 

66 

0.254 x 10“ 3 

113,500 

84 

0.226 x 10" 3 

86,900 

92 

0.218 x 10" 3 

523,000 

392 

0.103 x 10" 3 
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Response calculations were performed for five sets of gas film characteristics. 
The first and the last sets correspond, respectively, to film thicknesses of 
0.00105 and 0.0002 in. (with to = 500 Hz). Since the total gap of the double- 
acting gas thrust bearing is 0.0021 in., a film thickness of 0.00105 corresponds 
to the thrust runner at its central position (zero load), and a film thickness 
of 0.0002 in. corresponds to the thrust runner at its highly loaded position. 
This is reflected by the fact that they have, respectively, very low and very 
high stiffness and damping values. Obviously, they will not necessarily be 
representative values for the gas film characteristics for all operating 
conditions. The three cases in the middle in the above table are at a film 
thiakness of 0.0005 in. (corresponding to a moderately loaded thrust bearing) 

It is interesting to note that the RMS values of the gas film variation for the 

-3 -3 

above three cases have a narrow range from 0.218 x 10 to 0.254 x 10 inch. 
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DESCRIPTION OF TEST HARDWARE 



A schematic of the BRU simulator with the rotor in the vertical orientation is 
shown in Figure 21. The rotor, from the top down, consists of the following 
components : 


1) The (simulated) compressor wheel, containing the cold gas simulator 
drive turbine 

2) The thrust runner 

3) The compressor end journal 

4) A center section, (homopolar generator totor) 

5) The turbine end journal 

6) The (simulated) gas turbine wheel. 


The three-pad configuration of the gas film journal bearings is shown in cross- 
section in Figure 21. The pads are individually supported by pivots, with one 
of the pivots in each bearing assembly mounted on a mechanical flexure. The 
flexure, which has a radial stiffness of approximately 2000 pounds per inch, 
permits the bearing to accommodate radial centrifugal growth of the journal and 
differential, radial, thermal expansion between the various bearing parts. 


The double-acting thrust bearing is supported by a gimbal assembly with two sets 
of gimbals 90° apart. These permit the thrust bearing to align itself with the 
thrust runner of the rotor. The surface geometry of the thrust plates consists 
of nine equal sectors of 39° each with narrow radial grooves separating the 
sectors. Each sector in turn consists of a slightly depressed sector of 15° arc 
followed by the raised part In the direction of rotor rotation. Design details 
for the complete journal and thrust bearing assemblies are given in Reference 3. 
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The journal bearings, as well as both thrust bearing plates, have hydrodynamic and 
hydrostatic operating capabilities. For hydrostatic operation, each journal 
bearing pad and each raised thrust plate sector is equipped with a small gas 
supply hole, connected to an outside gas source. Hydrostatic bearing operation 
is normally employed to separate the bearing and rotor surfaces at start-up until 
rotor speed is high enough to produce a sufficiently large gas film for safe 
bearing operation. At the design speed of 36,000 rpm and above, the rotor 
operates hydrodynamically. The BRU design also requires hydrostatic bearing 
operation at shutdown to prevent rubbing contact between the rotor and the 
bearing surfaces at speeds too low to provide hydrodynamic film separation of the 
bearing surfaces. Prior to the vibration tests described in this report, all 
bearing and corresponding rotor surfaces had been coated by MTI with chrome oxide 
and refinished to the original dimensional specifications. This was done to im- 
prove the tolerance of the bearing surfaces against accidental rubs which might 
occur in the course of the vibration tests. Figure 22 shows a photo of one of 
the unassembled chrome oxide coated thrust plates after grinding and lapping. 

Figure 23 is a photograph of the BRU simulator in the vertical support fixture 
mounted on the vibration table ready for testing. The simulator is held in the 
support fixture without isolators by three mounting brackets extending radially 
outward from the simulator casing and resting on the rim of the vertical support 
fixture. The flexible air hoses visable in Figure 23 serve to pressurize sepa- 
rately each of the journal bearings, the thrust bearing plates, the bearing 
cavity, the thrust loader chamber and the cold gas drive turbine. Nitrogen at 
room temperature was used for hydrostatic bearing operation and to provide the 
ambient gas atmosphere during all hydrodynamic tests. 

Figure 24 is a photograph of the BRU simulator in the transverse test fixture 
which is attached to the shake table surface. The shake table has been rotated 
into a horizontal position so that the direction of vibration is perpendicular 
to the vertically oriented axis of rotation of the BRU. .The same three mounting 
brackets without isolators are used for connecting the BRU simulator to the 
transverse test fixture as were used on the vertical fixture. 

A small-scale schematic of the BRU simulator in the transverse test fixture is 
shown on all data graphs obtained for this arrangement. As the schematic 
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indicates, the direction of applied vibration is in line with the instrumentation 
turret and thus passes also through the pivot of the flexibly mounted pad in each 
journal bearing. 

Instrumentation 


The dynamic response measurements on the rotor-bearing system were made with ca- 
pacitance probes. These probes may be divided for convenience into two categories 
those measuring displacements of the rotor or some bearing component relative to 
the simulator casing, and those measuring gas film thickness variations between 
the rotor and the thrust bearing or between the rotor and any of the journal 
bearing pads. From a total of four probes measuring thrust bearing film thick- 
ness variations, only two data signals from two probes 90° apart circumferen- 
tially have generally been recorded. These two probes were axially in line with 
probes recording motions of the gimbaled thrust bearing relative to the casing. 

Gas film thickness variations between the rotor and individual journal bearing 
pads were measured with capacitance probes built into each pad. These probes, 
which were installed by MTI prior to tests, were located next to the pivot on 
the inboard side of each bearing pad (a total of six). 

Two sets of two probes were used to measure rotor displacement relative to the 
simulator casing at two locations inboard of the journal bearings. (The angular 
orientation of these capacitance probes is indicated in Figure 25). The radial 
motions of the two flexures supporting each one of the three pads of each journal 
bearing were measured near the pivot location relative to the casing. Pad motions 
at the pad leading edge were recorded for one solid mounted and one flexure 
mounted pad. 

A schematic of the probe locations in relation to the rotor is shown in Figure 25. 

Figure 26 provides a listing of all capacitance probes used for data recording. 
Most of the significant capacitance probe signals obtained in any given test 
were permanently recorded on a multichannel tape-recorder. In addition to 
one direct-record channel each for voice and rotor speed, twelve frequency- 
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modulated (FM) channels were available for dynamic signals on two separate re- 
cording heads. The two recording heads on the tape recorder are not phase-tied, 
therefore, one accelerometer signal (the vibration table input signal) was re- 
corded on one channel of each of the two recording heads to permit later phase 
correlation between vibration input and response signals. Two more tape channels 
were assigned to a second accelerometer signal from one of the BRU mounting brackets 
on the casing and to a logarithmic frequency indicator (to be used later for 
driving the X-Y plotter). This left eight channels available for data signals 
from the capacitance probes, necessitating a repeat run on each of the tests to 
he performed for sufficient coverage. All recording was done at 30 inches-per- 
second tape speed insuring a flat response of the FM channels from DC to 10 KHZ, 

Crystal accelerometers were used to check acceleration levels on the BRU simulator 
mounting brackets and at locations on the support fixtures directly adjacent to 
the mounting brackets. The acceleration input level to the BRU simulator was 
monitored by an^accelerometer located on the rim of the vertical support fixture 
for the vertical vibration tests. For the lateral vibration tests the input con- 
trol accelerometer was located on the horizontal support fixture near the BRU 
mounting bracket opposite from the instrument turret, as shown in Figure 27. 
Accelerometer locations on the vertical support fixture and the BRU simulator are 
shown in the schematic in Figure 28. For the lateral vibration tests, accelero- 
m eters were monitored at the locations shown in Figure 29. 

The BRU simulator was equipped with a number of thermocouples on the journal 
bearing pads, the thrust bearing and the internal support structure. Tempera- 
tures from nine locations, including both flexure-mounted journal jjads, one solid- 
mounted pad at the compressor-end journal, and one thrust plate were recorded by 
automatic print-out throughout the tests. 

Figure 30 shows the test control station. The control panel on the left contained 
the pneumatic controls for the operation of the BRU simulator. Rotor speed was 
manually regulated by controlling air flow through the simulator drive turbine 
via a regulating valve located in the panel. Speed was indicated by an elec- 
tronic counter on the panel. 
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Other pressure regulators and gages served to control the gas pressure to the 
bearings at start-up and shutdown and to regulate the bearing cavity pressure. 

The center panel of the control station shown in Figure 30, holds the sinusoidal 
vibration control console. Sinusoidal vibrations with constant acceleration 
over the test frequency (5-2000 Hz) were programmed on this instrument prior to 
the start of actual shake table motions. A closed-loop control circuit including 
the accelerometer mounted on the BRU simulator mounting fixture held the acceler- 
ation level at that point constant despite table or fixture resonances that might 
occur. The time required to traverse the test frequency range from 5 to 2000 Hz 
could be varied within wide limits, with a 10 to 15 minute sweep preferred to 
match the length of one test run to the running time (16 minutes) of one reel of 
magnetic tape on the tape recorder. The frequency sweep on the sinusoidal vibra- 
tion control console may be either a linear or a logarithmic progression. A lo- 
garithmic progression was used exclusively in these tests for better resolution 
in the low frequency range. 

The console on the right in Figure 30 contains the analyzer and equalizer for 
the random vibration tests. Basically, the analyzer consisted of 45 narrow 
bandwidth filters which broke down the incoming random signal from the shake 
table control accelerometer into narrow frequency bands (50 Hz wide above 100 
Hz center frequency, less at lower frequencies) and then determined the power 
spectral density in each range. The equalizer portion of the console compared 
a pre-set power spectral density level for each of 45 channels with the level 
of the incoming signal from the shake table and automatically adjusted the level 
of the signal going out to the power amplifier (which in turn drove the shake 
table) to make it conform to the pre-set values. "Shaped" power spectra with 
decreasing power density towards the ends of the frequency spectrum, such as are re 
quired by NASA Spec 412-2-C-3, could easily be set up on this control instrument. 

A graphic representation of the random vibration test levels from NASA Spec 412- 
2-C-3 for operating and non-operating electrical components (BRU simulator) is 
shown in Figures 31 and 32, respectively. During testing the level of the random 
vibrations at the shake table could be increased gradually in steps from 20 db 
below the set value to full value, while maintaining the originally set shape of 
the spectrum. Shake table response to changes in the spectral density power 
level was nearly instantaneous, inviting visually monitored operation of the 
random tests with immediate vibration level reductions when danger of excessive 
rotor-bearing contacts seemed imminent. 
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Oscilloscopes and temperature recorder were arranged opposite from the control 
panels shown in Figure 30. The vibration shake table with the BRU simulator 
mounted on it was easily observable through a glass door from the test control 
station. 
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DESCRIPTION OF TESTS 


The BRU simulator was tested under sinusoidal and random vibration input condi- 
tions. Both types of vibrations were applied separately and no combined sinu- 
soidal-random testing was performed. Identical sinusoidal vibration levels were 
applied to the simulator with and without shaft rotation. Under random vibra- 
tion conditions the specified levels of power spectral density were lower with 
the shaft rotating and more severe with the shaft stationary. All tests were 
performed with the shaft in the vertical position (compressor end up), conducted 
with the direction of applied vibration along the rotor axis and then repeated 
with vibration applied in a direction perpendicular to the rotor axis. For the 
latter tests the shake table was turned by 90° into the horizontal position and 
the simulator was mounted in a different support fixture. During the lateral 
vibration tests the simulator was so oriented that the direction of vibration 
passed through the flexure-supported journal pads. 

All vibration tests were conducted according to NASA Spec 417-2-C*. However, 
since these tests were not intended as qualification tests, it was attempted to 
hold vibration levels below threshold values above which, the BRU simulator rotor- 
bearing assembly might seriously have been endangered. During the sinusoidal 
vibration tests in the frequency range between 35 and 2000 Hz where no particu- 
lar input level was specified, the danger zone for the gas bearings was generally 
assumed to start at a minimum film thickness of 0.0001 inch or less. Shake table 
acceleration levels around 0.12 g peak were found to permit generally safe opera- 
tion in this frequency range. There was, however, an exception where even this 
low input led to sustained rubbing of the rotor in one of the journal bearings^* 

During the random vibration tests, where visual observation of minimum gas film 
thicknesses was much more difficult due to the erratic nature of the rotor ex- 
cursions, the danger zone was considered to start at the point where intermitent 


* Environmental Specification of SNAP-8 Electrical Generating System, dated 
March 31, 1967. 

**Upon disassembly of the BRU simulator, the failure of the compressor end 
journal bearing to operate hydrodynamics lly was found to be failure of the 
brazed joint between journal bearing pad and pivot seat in four of the six pads. 
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rotor-bearing contacts could be recognized. A rapid rise in bearing temperatures 
or a slow-down in rotor speed were taken as certain indicators of repeated brief 
contacts between rotor and bearings. 

The following vibration schedule from NASA Spec 447-2-C was used as a goal for 
these exploratory tests: 

Sinusoidal vibration, with shaft rotation: 

5-35 Hz - 0.25 g peak 

35-2000 - Identification of resonances only 

Sinusoidal vibration, without shaft rotation: 

5-35 Hz - 0.25 g peak 

Random vibration, with shaft rotation: 

20-100 Hz - 3 db/Oct.jincrease 
100-2000 Hz - 0.015 g /cps 

Random vibration, without shaft rotation: 

20-100 Hz - 3 db/Oct. increase 
100-600 Hz - 0.4 g /cps 
600-2000 Hz - 6 db/Oct. decrease 

A graphic representation of the random specifications is shown in Figures 31 and 
32. 

For those vibration tests where shaft rotation was required, the BRU simulator 
bearings were operated hydrodynamically in a nitrogen atmosphere of 38 to 40 
psia at room temperature. Initially it had been desired to operate the simu- 
lator bearings at an ambient pressure of 43 psia, however, apprehension about a 
rather small steady state thrust bearing gas film thickness with a fully vented 
thrust loader chamber led to the arrangement where the vent from the thrust 
loader chamber was closed and leakage gas from the bearing cavity was allowed to 
build up to some pressure in that chamber. The resultant upward force on the 
rotor, together with the drive turbine reaction force , exceeded the rotor gravi- 
tational force at bearing cavity pressures above approximately 30-32 psia. Any 
further increase in bearing cavity pressure caused a smaller increase in the 
thrust loader chamber pressure and consequently an increased loading on the up- 
per thrust plate. 
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In the interest of maintaining a reasonably large thrust bearing gas film thick- 
ness, the bearing cavity pressure was not increased above the 38-40 psia level. 
(Replumbing of the exhaust line and regulator from the thrust bearing loader 
chamber with a larger line and more sensitive exhaust regulator would probably 
have been satisfactory for reducing the thrust loader chamber pressure by one 
or two psi and thus allowing a bearing cavity pressure increase by 3 to 5 psi.) 

For a better perspective on the concern for a sufficient bearing gas film, it 
must be noted that the BRU simulator bearings were operated at off-design con- 
ditions, to their disadvantage. The viscosity of the He-Xe mixture in the 
bearing cavity of the operating BRU at a temperature of 400°F would be 0.47 
lb. sec/in. . This compared with 0.31 lb. sec/in. for nitrogen at 250°F, the 
steady-state temperature of the BRU simulator bearings without external heating. 

BRU simulator rotor speed was 36,000 rpm for hydrodynamic bearing operation. 

The rotor was not driven whenever vibration tests were conducted with all bearings 
hydrostatically pressurized. However, hydrostatic bearing pressurization alone, 
(drive turbine inactive) caused the shaft to rotate at approximately 2500 rpm, 
but opposite to the normal direction of rotation. For tests with nominal hydro- 
dynamic bearing operation conducted after the initial failure of the compressor 
journal bearing, hydrostatic supply pressure had to be supplied to the compressor 
journal bearing to maintain contact-free operation. 
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DESCRIPTION OF RECORDED DATA 


Test data was obtained and recorded with vibration applied to the BRU simulator 
along the rotor axis and at right angles to it. The test results are generally 
recorded in the same sequence the tests were completed, except for the axial 
non-rotating tests, which were conducted last. 

Preliminary Axial Vibration Tests 

The BRU simulator is a complex and sensitive machine, which requires careful 
control for satisfactory operation even under normal steady-state operating 
conditions. To avoid possible damage to the simulator from excessive accelera- 
tion loads caused by either support fixture resonances or responses of simulator 
bearing system components, two sets of preliminary tests were performed prior to 
the specified vibration test under rotating shaft conditions. 

First, the acceleration levels at various external points on the BRU simulator 
were determined while a constant input acceleration was maintained on the sup- 
port fixture at a point close to one of the mounting brackets of the simulator. 

In addition, measurements were made of the response of various internal BRU 
simulator parts (by means of proximity probes) under representative vibration 
levels. In all preliminary tests, the simulator gas bearings were pressurized 
at 150 psia and the shaft was not driven. (Some shaft rotation at approximately 
2500 rpm was present when the bearings were pressurized due to turbining torque 
produced by the gas jets leaving the external pressurization holes in the bearing 
surfaces . ) 

Axial vibration input level tests 

The shake table vibration level control system features a servo loop which con- 
tinuously measures acceleration at the table and appropriately adjusts the 
power level input to the table to maintain a predetermined shake table accelera- 
tion level. 
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Electrical and mechanical resonances of the bare table necessitate this automatic 
adjustment, even without the presence of mounting fixtures or test specimen. With 
mounting fixtures and test specimen present, the shaker servo loop maintains the 
preset acceleration level at that particular spot to which the control accelero- 
meter is attached. Other locations on the test fixture or the test specimen 
will, of course, exhibit vibrations peculiar to their own mass-stiffness rela- 
tionships. 

The initial vibration input level tests were conducted with a dummy mass so that 
more sensitive parts in the BRU simulator might not be damaged by excessive vi- 
bration inputs during the table programming and adjustment phase. Following 
the initial equipment and specification familiarization phase, the BRU simulator 
was placed in the vertical mounting fixture and, with all gas bearings pressu- 
rized, subjected to the specified 0.25 g sinusoidal vibration in the direction 
of the vertical vector axis. Figures 33 through 41 document the acceleration 
levels on various points along the circumference of the rim of the vertical sup- 
port fixture and on the BRU simulator itself. 

The shake table control accelerometer was mounted on top of the vertical support 
fixture at a location approximately 3 inches away circumferentially from the BRU 
mounting bracket located counterclockwise next to the instrumentation turret, as 
seen from the BRU compressor end. The location of the other accelerometers on 
or next to the BRU is indicated in Figure 28. 

Inspection of the acceleration plots indicate the following important conclusions 
to date: 

1) The input acceleration to the BRU, as indicated by both the table con- 
trol accelerometer and the test accelerometer next to it, (Figures 33 
and 34), was nearly constant over the frequency range from 5 to 2000 Hz. 

2) The acceleration levels on the BRU mounting brackets are noticeably 
affected by the dynamic characteristics of the BRU structure and com- 
ponents. The frequency range over which resonances occur extends from 
70 to 300 Hz. (Figures 35, 37, and 39.) 
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3) The acceleration levels on the BRU mounting brackets are not identical 
for all three brackets. (Equal torque was applied to all three mount- 
ing screws prior to the vibration test.') (Figures 35, 37, and 39) 

4) Accelerometers T-4, T-6, and T-8 (Figures 36, 38, and 40) appear to 
indicate the "bouncing” of the BRU mounting brackets on the vertical 
support fixture. At a distance of approximately 4.5 inches (circum- 
ferentially along the top of the support fixture) this "bouncing" ef- 
fect in the fixture seems to have been damped out, as evidenced by 
data from accelerometer T-2. (Figure 34) 

5) The top of the BRU simulator (part number 32, nozzle and seal assembly) 
exhibts several pronounced vibration peaks. These are at approximately 
100 Hz, 260-290 Hz, and 1400 Hz. Oscilloscope photographs obtained 
during testing indicate that above 260 Hz the vibration of the top of 
the BRU is out-of-phase with that of the top of the support fixture. 

At high table frequencies (around 1800 Hz) the top of the simulator 
exhibits primarily a low frequency vibration of approximately 350 Hz. 
(Figure 41) 

Axial sinusoidal vibration response tests - hydrostatic operation 

As discussed earlier, amplitude measurements were also made to determine the 
dynamic response of the internal parts of the simulator with hydrostatic bearing 
operation. The response of the BRU simulator bearings and their support struc- 
tures to externally applied vibrations was recorded from capacitance-type dis- 
placement sensors, using both existing probes and also those installed by MTI 
to measure film thickness above the pivot location in the journal bearing pads. 
Only that part of the monitored signals which signified dynamic part motion was 
recorded. Base line changes - as e, g. , minimum gas bearing film thicknesses 
were kept under observation on oscilloscopes for BRU simulator safety without 
being recorded. All of the preliminary tests recorded here were made at a 
shake table vibration input of 0,25 g. The sweep time was 15 minutes for the 
frequency range from 5 to 2000 Hz, with a logarithmic increase in shake table 
frequency. 
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The vibration amplitude grapns, wtu.cn are presented in Figures 42 through 52, 
indicate the presence of resonances (vibration peaks) in the sane general fre- 
quency ranges as previously shown by the signals from accelerometers mounted 
on the BRU simulator. A summary of the frequencies at which the most pronounced 
vibration peaks occurred for most of the bearing parts is given in Table IV below. 


Table IV 

Measured Vibration Peaks in BRU Simulator Hydrostatic 
With External Axial Vibration (No Rotation) 

Operation 

Approx. 

Freq. 

Hz 

Flex. 

Mounted 

Pads 

Flexure 

Solid 

Mounted 

Pads 

Casing- 

to- 

Shaft 

Thrust 

Brg. 

Film 

Thrust 

Brg. 

Gimbal 

Mounting 

Bracket 

Top of 
BRU 

70 


XX 

XX 

X 


X 

T3 


110 

X 

X 

XX 

XX 

XX 

XX 

T7 T5 

X 

150 



X 

X 





190 

X 

X 

X 

X 

X 




260/290 

XX 

X 

X 

X 

X 

X 

T3 T7 

XX 

1350 








X 


The notation XX indicates the frequency at which the largest vibration peak was 
observed. However, it must be noted that not necessarily all parts of the same 
type, as e.g., solid mounted bearing pads, exhibit the largest vibration peak 
at the same frequency. Also, when there are peaks of nearly equal magnitude 
at two different frequencies either one of them may become the largest in 
successive test runs. The underlined accelerometer designations in the mounting 
bracket column indicate the frequency at which each of the three mounting bracket 
accelerometers exhibited the largest response peak. 
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Axial Sinusoidal Vibration Tests With Hydrodynamic Bearing Operation 

Subsequent to the preliminary tests described above, sinusoidal vibration tests 
were undertaken in partial fulfillment of the vibration test requirements. 

With the BRU simulator in the vertical orientation, the bearings were operated 
hydrodynamically for a shaft speed of 36,000 rpm. Cavity gas pressure was 
40 psia (nitrogen). In this configuration two sinusoidal vibration tests were 
conducted: 

a) with vibration frequencies varying between 5 and 35 Hz, an input 
acceleration level of 0.25 was applied along the direction of the 
rotor axis, and 

b) in the frequency range between 35 Hz and 2000 Hz system resonances 
were identified. 

The BRU simulator withstood the low frequency (5 to 35 Hz) sinusoidal vibrations 
up to the specified level of 0.25 g (peak) without apparent ill effect. Bearing 
temperatures ranged between 230 and 250°F. 

The typical vibration amplitude curve depicting the response of individual bearing 
parts to vibration input in the frequency range up to 35 Hz was quite flat. No 
sample plots are shown in this report, however, this information is available 
on magnetic tape. 

Attempts to continue the frequency scan above 35 Hz at the input level of 0.25 g 
were not successful. Observed minimum gas film thickness decreased to 0.0001 inch 
or less even before any resonance peaks in the 70 to 300 Hz range were traversed. 
Therefore, the vibration input level was decreased to 0.12 g, which is near the 
minimum at which the vibration system would operate and still produce a low 
frequency acceleration with a nearly sinusoidal wave shape. (The minimum noise 
level guaranteed by the manufacturer for this particular vibration system is 
stated as "below 0.1 g"). At the vibration input level of 0.12 g (peak), two 
scans between 5 and 2000 Hz, each lasting 15 minutes, were successfully completed 
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and recorded. The resultant vibration amplitude response curves as monitored 
by the capacitance probes are shown in Figures 53 through 63. A subsequent 
attempt to repeat the test under identical test condition led to sustained rubbing 
of the compressor journal bearing. Rubbing of the shaft in the bearing began at 
a vibration frequency of 190 Hz and did not subside until the external vibration 
was removed. By that time the vibration frequency had increased to 290 Hz and 
the rotational speed of the BRU had fallen from 36,000 rpm to approximately 
19,000 rpm. Up to the time the vibration was removed, and jacking gas applied to 
all bearings, the affected journal bearing had not regained hydrodynamic opera- 
tion. Later attempts to operate the compressor journal bearing in a fully hydro- 
dynamic mode were not successful. However, a jacking gas supply pressure of 
20 psi above cavity ambient pressure was sufficient to prevent journal contact. 

The above described occurrence becomes apparent from inspection of Figures 64 
through 74, In these figures the onset of the rub can be recognized for all 
affected bearing pads by the large fluctuations in amplitude. The sharp drop 
in the rotor speed curve, shown on some of these figures, shows very dramatically 
the occurrence of the rub. Furthermore, temperature recordings (Figure 74) for 
one solid mounted pad and the flexibly mounted pad on the compressor journal 
bearing confirm the momentary breakdown of the bearing gas film. The 
photographs in Figure 72 picture the variations in pad-to-shaft film thickness 
of the compressor journal bearing pads which were caused by the rubbing. In 
Figure 73, photos show dynamic motion of the compressor and turbine journal 
flexures and of one of the compressor journal casing-to-shaft probes. These 
photos were obtained through signal playback from magnetic tape and thus 
accurately describe the changes that occurred at approximately 190 Hz in the 
compressor journal bearing. It cannot be overemphasized that the chrome-oxide 
coating on all mating bearing parts was instrumental in preventing a serious 
system failure at this point in the tests. 


* Upon disassembly by NASA-Lewis of the BRU simulator at the conclusion of the 
vibration tests it was found that failure of the brazed joint between journal 
bearing pad and pivot seat had occurred in all three compressor-end journal 
bearing pads and in one of the turbine-end pads. 
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It must be noted here that between the two "successful" tests and the test at 
which the journal rub occurred, the BRU had been subjected to some low level 
random vibration testing (vertical mounting, axial vibration) with hydrostati- 
cally pressurized bearings (rotor not driven) and at levels not exceeding 13 db 
below 5.4 g (RMS). This input is even far below the specified random input 
level of 5.4 g (RMS) for hydrodynamic bearing operating conditions. 

Axial Sinusoidal Vibration Tests Without Rotor Operation 

For these tests no hydrostatic bearing gas was supplied. The rotor was therefore 
held radially in a clamped position by the spring loaded journal bearing pads 
and axially restrained by the friction force resulting from the radial shaft 
loading. When subjected to the specified sinusoidal vibration of 0.25 g (peak) 
over the frequency range 5 to 35 Hz, the BRU simulator rotor and bearing parts 
did not exhibit any measurable motion relative to each other. 

Axial Random Vibration Tests With Hydrodynamic Bearing Operation 

With the BRU simulator in the vertical position and with bearings operating 

hydrodynamically (except for the compressor end bearing which was pressurized 

with nitrogen at 20 psi above cavity ambient), random vibrations were applied 

along the rotor axis. Beginning at a power spectral density level 20 db below 

★ 

the NASA specification for random vibration under BRU operating conditions, 
the input vibration level was increased by 0.5 db steps until the BRU simulator 
bearings were judged to be close to cessation of hydrodynamic operation. At 
the highest attained random vibration level a slow drop in rotor speed and 
increasing bearing temperatures were considered to be good indications of 
intermittent brief contacts between rotor and bearings, particularly in the 
thrust bearing. (The irregularity of the random response motions of the rotor 
and bearing parts makes visual observation of intermittent contacts between 

* NASA environmental specifications 417-2-C-3.5 for random vibration under 
operating conditions read as follows: 

Frequency - 20 - 100 Hz: 3 dB/Oct. increase 

- 100 - 2000 Hz: 0.015 g 2 /Hz 

These specifications amount to approximately 5.4 g (RMS). Initial shake table 
operation of 20 db below the specified full level is then equivalent to 
approximately 0.54 g (RMS). 
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rotor and bearings very difficult). Figure 75 demonstrates the dramatic changes 
in rotor orbits which occur with progressing time, even though the random vibra- 
tion input level is held constant. Figure 76 indicates a similar observation 
for other bearing system component parts, with a very noticeable difference in 
response characteristics between the flex-mounted and solid-mounted journal 
bearing pads. 

The maximum level of random vibration in the axial direction applied to the BRU 
simulator under hydrodynamic operation was 8 db below the specified full level. 
This is the equivalent of approximately 0.0024 g /Hz in the frequency range 100 
to 2000 Hz with a 3 db/Octave decrease between 100 and 20 Hz. The full level 
of the specified random vibration corresponds to 5.4 g (RMS). The maximum 
attained level of 8 db below specification thus corresponds to approximately 
2.15 g (RMS), which is about 40 percent of the specification input level. The 
vibration amplitude response of all monitored bearing parts has been recorded 
on magnetic tape. 

Within the capabilities of the available instrumentation, a simple presentation 
has been prepared of the RMS values of the random vibration response of those 
bearing parts monitored by capacitance probes. In Figures 77 through 89, 

RMS vibration amplitude levels are shown as they occurred during the course of 
the test (test-time shown in minutes) and as they increased with increasing 
table vibration input. 

Most of the amplitude curves show step increases for each step increase in table 
vibration level. Notable exceptions may be seen in Figures 86 and 88 which show 
the axial vibration amplitude of the thrust runner. At random vibration input 
levels greater than approximately 1.20 g (RMS) the thrust runner response does 
not increase significantly with increasing input vibration levels. As nearly as 
can be determined, the runner axial vibrational amplitude at this point is very 
nearly equal to the available thrust bearing clearance. Figure 90 shows clearly 
the increasing magnitude of larger and larger rotor amplitudes between thrust 
plates as the vibration level is increased. In the final photo of the series 
shown in Figure 90 the rotor moves back and forth almost all the way between the 
two thrust plates nearly every time it reverses its direction of axial motion. 
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Figure 91 is a replot of the measured temperatures obtained for three journal 
bearing pads and one thrust plate during application of the random vibrations 
to the operating BRU simulator. Except for what appears to be a momentary rub 
of the compressor-end solid mounted pad at less than the full random vibration 
input level, a general, gradual rise in bearing temperatures is evident, 
indicating a rising frequency of brief contacts between the rotor and all bearing 
parts . 

Axial Random Vibration Tests Without Rotor Operation 0 

These tests were conducted without hydrostatic gas supply to the BRU simulator 
bearings. The rotor remained clamped by the flexure supported journal bearing 
pads and restricted in the axial direction by the friction force resulting 
from the clamping action. 

The random vibration specifications for the nonoperating BRU are rather severe, 
with bearing pad-rotor separations and axial rotor motions occurring at levels far 
below the specified maximum. By NASA project manager direction, tests were 
discontinued at the input vibration levels indicated in Figure 32. Data from 
the capacitance probes has been recorded on magnetic tape. No sample plots are 
shown in this report. 

Preliminary Transverse Vibration Tests 

The transverse vibration tests were conducted with the BRU simulator in the 
vertical position (rotor axis coincidental with gravity vector) and the shake 
table turned to the horizontal position, as shown in Figure 24. For these tests 
the simulator gas bearings were pressurized at 150 psia and the shaft was not 
driven. 

Transverse vibration input level tests 

The objective of the transverse vibration input level tests was the determina- 
tion of the vibration levels at the BRU simulator mounting points on the support 
fixture. Since the design of the transverse support fixture suggested the 
possibility of vibrational cross-coupling between the transverse and the axial 
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directions at the location of two of the three simulator support brackets, 
acceleration levels were measured on various points of the fixture in both the 
transverse and the axial directions. 

The location of the control accelerometer was considered a suitable starting 
point for mapping of acceleration levels on the mounting fixture. At that loca- 
tion the acceleration level should very nearly correspond to the pre-set table 
input value over the full frequency range. Figure 92 offers proof of satisfactory 
acceleration control near the mounting location for the BRU simulator support 
bracket opposite the instrumentation turret. With the BRU simulator in place, 
the acceleration input at that same location is still satisfactory (Figure 95), 
even though two or three small resonances clearly show the effect of the 
simulator upon the vibrational behavior of the support fixture. 

At the location of the other simulator support brackets on the support fixture 
a high frequency (1200 Hz) resonance is apparent without the simulator in place, 
(Figure 93). 

The effect of this resonance, an increase in acceleration level to the BRU 
simulator at this frequency, is of no importance because it occurs above all 
significant resonances in the simulator itself. 

With the simulator mounted in the fixture, an additional small resonance is 
noted between 300 and 400 Hz (Figure 96). This may be a thrust bearing (gimbal) 
related resonance which^either on its own strength (Figures 97 and 98) or 
through a coincident fixture resonance (Figure 94) , is transmitted back to the 
BRU simulator support points in both the direction of table motion (Figures 97 
and 98) and perpendicular to it (Figures 100, 101, 102, 103, and 104). In 
the latter direction, which coincides with the BRU rotor axis, the vibration 
peaks seem to be more pronounced, but then the minor fixture resonance, as 
indicated in Figure 94 may provide a boost. 

Another important observation from this preliminary test series is the occurrence 
of the vibration peak of the transverse support fixture at 90 Hz in the vertical 
direction (perpendicular to the shake table motion). The effect of this 
(unwanted) input to the BRU simulator at a frequency close to where in earlier 
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testing most of the social;; resonances were observed, should be carefully 
assessed in the evaluation of all transverse vibration test results. 

Transverse sinusoidal vibration response tests - hydrostatic operation 

The amplitude response measurements in this preliminary test series were made 
under very similar conditions and for a similar purpose as those described 
under the heading "Axial Sinusoidal Vibration Response Tests - Hydrostatic 
Operation". However, the transverse tests were all made with a 0.12 g (peak) 
vibration table input and a sweep time of 10 minutes for the frequency range 
from 5 to 2000 Hz. 

The resultant amplitude graphs , which are shown in Figures 105 through 116 are 
similar to those obtained for vertical vibration table input. Internal BRU 
simulator part resonances are most pronounced in the frequency range between 
60 and 400 Hz. A summary of the frequencies at which vibration peaks occurred 
for most of the bearing parts is given in Table V below.. 


TABLE V 

Measured Vibration Peaks in BRU Simulator, Hydrostatic 
Operation, with External Transverse Vibration 

Approximate 

Flexure 


— 

Solid 


Thrust 

Thrust 

Frequency 

Mounted 


Mounted 

Casing- 

Bearing 

Bearing 

Hz 

Pads 

Flexure 

Pads 

to-Shaf t 

Film 

Gimbal 

70 

XX 

XX 

XX 

XX 

X 

X 

110 


X 

X 

X 

XX 

XX 

150 



X 




350 

X 


X 

X 

X 

X 


The notation XX indicates the frequency at which the largest vibration peak was 
observed Noteworthy differences between the axial and transverse vibration 
results are the absence of the 190 Hz resonance from the transverse test case, 
and the shifting of the 260/290 Hz resonance in the axial test case to 350 Hz 
in the transverse tests for all journal bearing pad and rotor-to-casing measure- 
ments . 
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Transverse Sinusoidal Vibration Tests With Hydrodynamic Bearing Operation 

The transverse sinusoidal vibration tests with the BRU simulator operating (hydro- 
dynamically) at 36,000 rpm, were conducted similarily to the axial sinusoidal 
tests. 

The BRU simulator withstood the low frequency (5 to 35 Hz) sinusoidal vibrations 
at 0.25 g (peak) without noticeably fluctuating responses or difficulties. 

The frequency range 35 to 2000 Hz, was scanned for resonances at 0.12 g (peak) 
vibration table input. The response of various bearing components and of the 
rotor relative to the simulator casing is plotted in Figures 117 through 129. 

It is noted on all of these plots that the compressor-end journal bearing was 
operated hydrostatically, due to its previous failure during the axial sinusoidal 
vibration test series. 

Transverse Random Vibration Tests With Hydrodynamic Bearing Operation 

The transverse random vibration tests with the rotor operating at 36,000 rpm 
(hydrodynamically , except compressor-end journal bearing) were essentially a 
repetition of the axial random vibration tests, with the direction of vibration 
now perpendicular to the rotor axis and in-line with the instrumentation turret 
on the BRU simulator. The maximum level of random vibration applied laterally 
to the BRU simulator was 10 db below specified full level, or 1.7 g (RMS). 

Response graphs similarly to those obtained and described for the axial random 
vibration tests are shown in Figures 120 through 142. Figure 143 shows a plot 
of bearing pad and thrust bearing plate temperatures obtained during the transverse 
random vibration tests. 

Transverse Random Vibration Tests Without Rotor Operation 

For these tests the rotor was clamped by the flexure supported journal bearing 
pads (no hydrostatic gas bearing supply). Random vibrations were applied up to 
a level of approximately 8 1/2 db below the specified maximum (or 1.97 g -RMS), 
but were not increased beyond this level upon NASA project managers directive. 
Separation of the journal bearing pdds from the rotor (or vice versa) had 
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started to occur before test termination. Capacitance probe signals have been 
recorded on magnetic tape, however, none are shown in this report,, 



CONCLUSIONS 


The primary objective of the work reported in this volume was continued assess- 
ment of the effects of environmental vibration on the mechanical performance of 
gas-bearing space-power Brayton cycle turbomachinery. This objective was 
achieved via the following specific steps; 

1. The previously-developed analysis and computer program for the 
calculation of axial shock and vibration response of a gas- 
bearing-supported rotor system was extended to include non- 
linear supporting elements (i.e., passive isolators). 

2. An analysis and computer program were developed for calculating 
the response of the Brayton Rotating Unit (BRU), in the axial 
direction, to externally- imposed random-type vibrations. 

3. Experimental tests were conducted to assess the effects of 
external vibrations on a newly developed space- power turbo- 
compressor-alternator (the Brayton Rotating Unit, or BRU). 

The tests included both sinusoidal and random vibration 
inputs . 

The following paragraphs describe the conclusions pertaining to the three areas 
of investigation listed above. Conclusions relating to the experimental part 
are still incomplete and tentative, because a thorough evaluation of the 
recorded data has still to be performed. Such an evaluation will constitute 
a separate study. 

Analysis of Response of Nonlinear System to Externally-Imposed Shock and 
Sinusoidal Vibration 

Nonlinear elements were added to the axial shock and sinusoidal vibration 
analysis reported in Reference 1. The extended analysis was implemented in a 
modified version of the computer program reported in that reference. The im- 
proved program permits specification of either linear or nonlinear spring-damper 
elements, with nonlinear elements describable in terms of functions or tabular 
input . 
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Comparisons of calculated and measured axial response to shock inputs for the 
NASA A-Engine turbocompressor simulator yield reasonably good correlation to the 
accuracy within which the elastomeric isolator dynamic stiffness and damping 
properties are known. 

Analysis of Response of Linear System to Externally-Imposed Random Vibration 

An analysis was developed for the linear three-mass axial response model reported 
in Reference 1. This model is applicable to a wide range of single-shaft gas- 
bearing rotor systems. The analysis considers random acceleration, specified as 
a power spectral density of arbitrary shape over an arbitrary frequency range, 
to be applied along the shaft axis of ration to that element of the dynamic 
model which supports the rotor-bearing system. Since primary interest centers 
about the behavior of the gas-lubricated thrust bearing, the axial response of 
the system is presented in terms of displacement power spectral density. Thus, 
the dynamic behavior of the thrust bearing film, in terms of both power spectral 
density and RMS values, may be examined as a function of other system design 
parameters . 

Such calculations and studies of the axial response of the Brayton Rotating Unit 
(BRU) have been performed and are reported herein. Preliminary comparisons be- 
tween calculated and measured thrust bearing response, on an RMS basis, give 
reasonably good correlation. 

Experimental Tests 

Sinusoidal and random vibration tests were conducted on the Brayton Rotating 
Unit (BRU) with NASA environmental specification 417-2-C, as a goal for the 
upper limits of the externally-applied vibration levels. In the sinusoidal 
mode, the imposed vibrations were relatively light and had little effect upon 
the gas bearing system. In the low frequency range (5-35 Hz), for which a 
vibration input level of 0.25 g peak was prescribed (BRU operating and non- 
operating) no system resonances were encountered. Exploratory investigations 
in the frequency range 35-2000 Hz revealed strong resonances between 60 and 400 
Hz. This regime could only be traversed (BRU operating) by reducing the shake 
table input to 0.12 g peak so as to maintain reasonably safe gas bearing film 
thicknesses of 0.0001 inch and larger. Generally, intermittant rotor-bearing 
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contacts were not observed during sinusoidal testing. A failure of the 
compressor-end journal bearing to maintain hydrodynamic operation was noted 
during sinusoidal testing; the bearing lost permanently its ability to function 
hydrodynamically . Upon disassembly of the BRU simulator at the NASA Lewis 
Research Center subsequent to testing, it was found that all three pivot seat- 
to- journal bearing pad joints had broken on that bearing. Since it is unlikely 
that all three brazed joints broke at the same instant, no particular signifi- 
cance should be ascribed to the frequency (190 Hz) at which the failure became 
apparent. This may have been the instant at which the last of the three joints 
broke, because this type of journal bearing is capable of operating with at least 
one broken joint, as evidenced by the fact that at disassembly the brazed joint 
of one of the turbine-end journal bearing pads was also found to be broken. No 
degradation of turbine-end journal bearing performance had been observed during . 
vibration testing at MTI. 

One of the most striking observations made during sinusoidal vibration testing, 
with the BRU simulator bearings operating hydrodynamically, was the absence of 
resonances of the flex-mounted journal pads relative to the shaft surfaces. The 
ratio of spring stiffnesses of the gas film between the journal bearing pad and 
the rotor on the one hand, and that of the flexure which supports one pad in 
each journal bearing on the other hand, appears to permit those pads to "track" 
the rotor under hydrodynamic operating conditions. Relative motions due to 
rotor or bearing support excursions are accommodated by the flexure supporting 
the pad. This fact indicates that the provision of damping in the flexure may 
be a viable method for introducing an energy dissipation mechanism into the 
system. 

The random vibration requirement contained in NASA Environmental Specification 
417-2-C is more severe than the sinusoidal requirement. For the operating mode 
5.4 g RMS is specified, and for the nonoperating mode 19.7 g RMS. Momentary 
breakdowns of the gas bearing film were observed at less than half the desired 
random vibration input val'ue of 5.4 g RMS. This is not surprising in view of 
the numerous resonance peaks observed in the BRU for relatively small vibration 
table inputs at discrete frequencies during sinusoidal testing. 
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The short duration rubs which occurred at the higher vibration input levels 
during random testing were evidenced by a fairly rapid rise in measured temper- 
atures of the affected bearings. However, these rubs did not seem to cause 
noticeable permanent hydrodynamic bearing performance degradation, because rotor 
operation at the conclusion of all tests appeared normal (except for the failure 
of the compressor journal bearing, described earlier) and the chrome oxide 
bearing surface coatings were found to be in good condition after simulator dis- 
assembly at the NASA Lewis Research Center. 

The electromagnetic shaker which was obtained for the BRU tests, proved well 
suited to the task. It has a 15,000-pound sine vector and 9,000-pound RMS 
(random) force rating. Testing at such levels has not yet been conducted, of 
course, for the BRU. 
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APPENDIX A 


NONLINEAR-ELEMENT SINUSOIDAL 
VIBRATION AND SHOCK AXIAL RESPONSE ANALYSIS 


The three-mass vibration model developed in Reference 1 was used in this study 
with the implementation of nonlinear isolator properties. The lumped masses m^, 
m 2 and m^ are those of the turbocompressor simulator casing, the thrust bearing 
housing- flexure combination and the rotor respectively. The nonlinear isolator 
properties are represented by a nonlinear stiffness k^[x] and a nonlinear damping 
coefficient c^[x]. The thrust bearing housing and the flexure are represented 
by a stiffness and a damping coefficient c 2 . Both are constants. Denoting the 
displacements of the three masses and the base as x^ , X 2 , x^ and x^, the equa- 
tions of motion can be written as: 


m A 

k 2 (x 2 x i^ 

" k l 

[x] (x x - 

- X fa ) - c 1 [x](x 1 -x b ) - n^g 

(A. 1) 

m 2 x 2 

= -G[h, h] - 

k 2 (x 2 

“ x l } 

— c 2 (x 2 - x b ) - m 2 g 

(A. 2) 

m 3*3 

= G[h, h] + 

F - 
a 

“38 


(A. 3) 


where F a = aerodynamic force acting on m^. 
g = gravitational acceleration. 

G[h,h] = gas film force. 

The gas film force can be resolved into a load capability component W^(h) and a 
damping component . Thus , 

G[h,h] = W 3 [h] - h B 3 [h] (A. 4) „ 

where h = gas film thickness = x 3 — x 2 " 
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It is convenient to write the nonlinear isolator restoring force -k^[x](x^ — x^) 
as : 


W 1 [x 1 — x fe ] = -k^[x] (x^ — x^) (A. 5) 

With the substitution of (A. 4) and (A. 5), Equations (A. 1) , (A. 2) and (A. 3) can be 
rewritten as: 

m 1 x 1 = k 2 (x 2 - x x ) + W 1 [x 1 - x fe ] - c 1 - x fe ) - m 1 g (A. 6) 

m 2*2 “ “ G t h *^3 “ k 2 (x 2 — x 1 > - C 2^2 ~ *1> _ ^ 2 8 (A. 7) 

m^jX^ = G[h,h] + — m 3 g (A. 8) 


These equations can be expressed in a form amenable to laboratory measurement by 
some redefinition. First of all, the position under static equilibrium can be 


obtained 

from Equations (A.l), (A. 2) 

and 

(A. 3). 


0 

= k 2 (x 2 - x 1 ) + [x^ - 

*b ] 

" mjg 

(A. 9) 

0 

= - W 3 [h] - k 2 (x 2 - x 1 ) 

- 

m 2 g 

(A. 10) 

0 

° W 3 [h] + F a - m 3 g 



(A. 11) 


where x^, x 2> x 3 and x^ are the values of coordinates at static equilibrium and 
h is the equilibrium gas film thickness. Obviously, h = x 3 - x 2> Now, if we 
measure the displacements of the masses from their respective equilibrium posi- 
tion, and denote them by y^, y 2 , y 3 and y^, then 


*1 





?b 


x, - 


(A. 12) 
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In terms of the y coordinates, the equations of motion can be written as 


m i^i = k 2 (y 2 -y i ) + w i [y r y b +x r x b ] _ V x r x b ] _ c i (y i _y b ) ( A - 13 > 

m x y x = “ W 3^ h ^ + W 3^ + (y 3 -y 2 ) B 3^1 " k 2* y 2 -y i* ~ c 2 (y 2 -y l^ ( A - 14 > 

m 3 y 3 = W 3^ h ^ ~ w 3^1 “ (y 3 ~y 2 ) B 3 th] (A. 15) 


Note that by definition 

h = x 3 _ x 2 = y 3 " y 2 + (x 3 “ x 2 ) 

' *3 ‘ y 2 + S 

ii - y 3 - y 2 


The square bracket is used here to denote functional dependence. For example, 
W^[h] should be read as "W^ as a function of h". 

The isolation system consists of four individual shock and vibration isolators 
connected in parallel to support the turbocompressor simulator. The load- 
deflection characteristics of an individual isolator were measured and the 
results were plotted in Figure 4. The ordinate in Figure 4 is the total load on 
the isolation system which is four times the load on each individual isolator. 

The right-hand sides of Equations (A. 13), (A. 14) and (A. 15) are discussed 
as follows. The stiffness k£ and damping coefficient c ^ are known con- 
stants. The damping coefficient of the isolator c^ can be a quantity varying 
with the isolator deflection. In this analysis, c^ will be taken as a constant 
because no further information is available at the present time. The isolator 
load deflection characteristic can be read from Figure 2. The nonlinear load 
capacity and damping coefficient of the thrust bearing gas film can be approxi- 
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mately represented by either an exponential function or a power function of the 
film thickness as indicated on page 17 of Reference 1. As shown in Figure 18 
and 19 of Reference 1, the load capacity and the damping coefficient of the 
thrust bearing gas film can be approximately represented by 

W.[h] = 105 exp (-1555h) lb 

B 3 [h] = 9.73 h -1 ‘ 5 lb sec/in. 

Note that h should be expressed in inches in the above two formulas. 

Equations (A. 13), (A. 14) and (A. 15) can be expressed as a set of six simultaneous, 
first-order, nonlinear differential equations. The shock or vibration forcing 
function to the simulator is fed in through y . If the system is started from 

D 

its static equilibrium position, then the initial conditions of the differential 
equations are homogeneous, i.e., at t = 0 , = y^ = = 73 = 0 . 

These equations and inital conditions were programmed on a digital computer using 
a fourth-order, Runge-Kutta integration technique supplemented by an error con- 
trol method which continuously adjusted the integration step size to maintain 
solution accuracy within prescribed limits. 
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APPENDIX B 


NONLINEAR-ELEMENT AXIAL RESPONSE COMPUTER PROGRAM 

This appendix presents a complete listing of the computer program which calcu- 
lates the axial response of the turbocompressor simulator. This program is a 
modification of the axial response program of Reference 1 to include nonlinear 
isolator properties. Also presented in this appendix are instructions for pre- 
paring input data cards, sample input and sample printed output. The lumped- 
mass model used for the nonlinear-element computer program is shown in Figure 6 


49 



PROGRAM INPUT CARDS 


Card 1 - FORMAT (15, 75H) 

This card contains a case number and descriptive text for the users convenience. 
Set NCAS = Any nonzero numerical digit to sequentially identify the case 
being computed (a blank here will stop the program) 

Title = Any descriptive identification for case being computed. If 

computer graphs are requested, this descriptive identification 
will automatically appear at bottom of graph. 

Card 2 - FORMAT (15, 10X, 415, 3(15, F10.4)) 

This is a control card which contains the following control variables. MODEL, 
IFOFT, ICC, MOTION, NONLIN, ITYP1, TAB1, ITYP2* TAB2 , ITYP3 , TAB 3 

These variables dictate options as follows: 

Physical Model 

MODEL = 1. Complete system as shown in Figure 2. 

MODEL = 2. Complete system on rigid mounts (k^= °°) with flexible lower casing. 

MODEL = 3. Simple model, gas film with nonlinear stiffness and damping; rigid 
casing and mounts (k^ = k^ = "). 

Type of Excitation Function 

IFOFT = 8 Continuous sine function 

IFOFT = 9 Shock function half sine 
IFOFT = 10 Shock function haversine 
IFOFT = 11 Shock function (table) 

Calcomp desired? 

ICC = 12 yes 
ICC = 13 no 

Is forcing function described in terms of displacement or acceleration? 

MOTION = 0 if forcing function input represents displacement in inches. 

MOTION = 1 if forcing function input represents acceleration in g's. 
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NONLIN = 1 This is a control integer which causes the program to utilize the non- 
linear element analysis described in this report rather than the 
previous analysis described in Reference 1 which permitted non- 
linearities only in the gas film. 

NONLIN = 0 This input will cause the program to utilize the analysis published 
in Reference 1. 

ITYP1 = 1 and TAB1 = 0. For the case that K1 and Cl are linear values to be 
read in as constants. 

ITYP1 = 2 and TAB1 =0. For the case that K1 and Cl are nonlinear functions 

which can be completely arbitrary, but must be supplied by the user 
as function subprograms called by "FK1" and "FC1". 

ITYP1 = 3 For the case that K1 and Cl are to be read in as tabular values. 

TAB1 = 0. If table increment of relative displacement is irregular. 
TAB1 = Table increment of relative displacement between the mass 1 
and the base for which the load and damping values will be 
specified. 

ITYP2 and TAB2 are the same as ITYP1 and TAB1 except that they relate to K2 and 
C2 and the relative displacement between mass 2 and mass 1. 

ITYP3 and TAB3 similar to above but apply to K3 and C3 and the relative displace- 
ment between mass 3 and mass 2. 

Card 3a, and 3b - FORMAT (8 E10.4) and (2E 10.4) 

This card describes the values of the masses, stiffnesses, and damping coeffi- 
cients associated with the three degree of freedom vibration model. Read Ml, M2, 

M3, Kl, K2, K3, Cl, C2, C3, HINIT 

Ml, M2, M3 = Weights (in pounds) of the lumped-masses shown in Figure 3. 

Kl, K2, K3 = Stiffnesses (in pound per inch) shown in Figure 3. 

Cl, C2, C3 = Damping coefficients (lb-sec/in.) shown in Figure 3. 

HINIT = Initial equilibrium film thickness of gas film. This quantity need only 
be furnished if linear stiffness and damping are assumed for this gas 
film. 

NOTE: Any pair(s) of the stiffness and damping elements may have been declared 
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nonlinear by the variables specified on Card 2. If this is done, the 
corresponding values on Card 3 are ignored by the program. 


Card 4 - FORMAT (3E10.4) 

This card contains constants which affect the conditions of the initial equilibrium 
conditions of the gas film. It also contains a variable, ELIM, which serves to 
prevent the nonlinear thrust bearing gas film properties from becoming infinitely 
large at zero film thickness. 

GL *» Local gravitational acceleration in "g's" (GL = 1.0 on earth's surface) 

FA =■ Net aerodynamically induced axial force (in pounds) on rotor (positive, 
if force is upward) . 

ELIM = Nonlinear load and damping functions are held constant at film thick- 
nesses less than "ELIM" inches. 

Cards 5A, 5B, 5C, 5D - FORMAT (8E10.3) 

These cards contain, in tabular form, the nonlinear properties required to 
specify the various spring and damping characteristics of the system. The use 
of these cards depends upon the values of ITYP1, TAB1, ITYP2, TAB2, ITYP3, and 
TAB 3 specified on Card 2. If ITYP1 = 3, ITYP2 => 3, or ITYP3 - 3, then the tables 
must be supplied. Otherwise, OMIT Cards 3A, 5B, 5C, 5D entirely. 

For the spring and damping coefficients k^ and c^: 

Card 5A 


Submit all values of relative displacement (inches) for which load values are 
specified. In each card, the values are punched in successive fields of ten, 
(8 values per card). The last value may not be 0.0, and the last card of this 
set is followed by a blank card . 


52 



Card 5B 


The second set of values consists of the nonlinear load characteristic (lb) for 
which the displacements were specified above. The values are submitted in the 
same manner. The last card of this set is followed by a blank card. 

Card 5C 


The third set of values specifies displacement values for which damping is 
specified. The values are submitted in the same manner. The last card of this 
set is followed by a blank card. 

Card 5D 


The fourth set of values specifies values of the nonlinear damping characteris- 
tic. The values are submitted in the same manner. The last card of this set is 
followed by a blank card. 

If TAB1 ^ 0, then the table increment of the relative displacement is regular 
and given by TAB1. In this case, omit the first and third sets and replace set 
1 by a card containing the starting value of the relative displacement (column 
1-10). The starting value applies to both displacement values for both load and 
damping characteristics. The same procedure is used for quantities k^, c ^ and 
for k^, if required; with a separate set of cards 5A, 5B, 5C, 5D for each. 

NOTE: All tables for Kl, K2 and Cl, C2 must be formulated with respect to the 

conditions of static equilibrium to remove any preload effects. 


Card 6 


This card specifies the parameters of the system forcing function: amplitude and 

frequency, if the system is under a steady-state vibration; or pulse amplitude 
and pulse duration if the forcing function is a closed-form shock pulse. Data 
is dependent upon options chosen for IFOFT and MOTION. 

There are four distinct possibilities depending upon the control variable IFOFT 
specified on Card 2. 
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If IPOFT = 8 Read AMPLD, FREQ 
FORMAT (2E10.4) 

AMPLD = amplitude of sinusoidal forcing function. 

If MOTION = 0, AMPLD = displacement in inches. 

If MOTION = 1, AMPLD = acceleration in g's. 

FREQ = frequency of forcing function in Hz (cps). 

If IFOFT <= 9 Read PEAKS, PDURS 
FORMAT (2E10.4) 

PEAKH = peak value of half sine shock pulse. 

If MOTION <= 0, PEAKS = displacement in inches. 

If MOTION = 1, PEAKS = acceleration in g's. 

PDURS “ duration of half sine shock pulse (seconds). 

If IFOFT ■= 10 Read PEAKH, PDURH 
FORMAT (2E10.4) 

PEAKH = peak value of haversine (shock machine half sine) pulse. 

If MOTION = 0, PEAKH = displacement in inches. 

If MOTION «= 1, PEAKH = acceleration in g's. 

PDURH = duration of haversine shock pulse (seconds) 

If IFOFT ° 11 Read NINC, TINCP 
FORMAT (15, F10.4) 

NINC = number of evenly-spaced intervals in pulse. 

TINCP = time interval of each of the above increments. 

This data card must be followed by as many data cards, 6A, 6B, etc., as are 
necessary to represent the shock pulse. 

Cards 6A. 6B. etc. Read PUVAL (only if IFOFT « 11) 

FORMAT (8E10.4) 

PUVAL = values of the shock pulse at each increment specified above. Values 
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must be contiguous starting with the first increment. 

If MOTION = 0, PUVAL = displacement in inches. 

If MOTION = 1, PUVAL = acceleration in g's. 

NOTE: If more than one inctemertt size is desire^, a different' case may be run 

for each step size by using the conditions at the change point as 

restart values. 

Card 7 - FORMAT (415, 6E10.4) 

This card controls the precision and duration of the internal computation and 

output. It contains the following ten variables: IPSTEP, M, MAXINC, NCYCLS, 

TPRINT, TMAX, H, E, HM, RERR 

IPSTEP = ratio of printed to plotted output points. In most cases IPSTEP = 1. 

M = number of integrations performed internally before step size is 

automatically adjusted. Usually M = 2. This will usually result in 
the best trade off between precision and economy. 

MAXINC = the maximum number of internal integrations before program shuts 

itself off. This is a safety control to prevent exorbitant computer 
charges due to unforeseeable misbehavior Of the solution. Recommended 
MAXINC = 3000. 

NCYCLS = the number of cycles for which the solution will be calculated beyond 
the first minumum and maximum after the shock pulse ceases to act. 
NCYCLS has meaning only for shock pulses. This variable is ignored 
if IFOFT = 8. 

TPRINT = output control which establishes the step size of printed and plotted 
output (seconds). May be any convenient interval into which the time 
range of the solution is to be divided, generally a few hundred points 
or so. Example: If the range of interest is expected to be between 

0 and 2 seconds, and 200 solution points are adequate to describe the 
system behavior in detail: 

2 seconds 


TPRINT = 


200 


= 0.01 



This will cause results to be printed at 10 milliseconds, 20 milli- 
seconds, etc. 

TMAX maximum time value (seconds) for which solutions will be computed. 

This is another safety feature designed to prevent excessive computa- 
tional charges resulting from some unforeseeable characteristic of the 
solution. Normally, this value should be twice as large as the solution 
is expected to run. 

H = time increment (seconds) at which to begin computations. 

E = maximum absolute error permitted in internal computation. A value of 
0.002 is suggested for this quantity. 

HM = minimum step size (seconds) for internal calculation. This parameter 
is another safety measure which keeps the internally-set step size 
from approaching zero in the attempt to achieve greater accuracy. A 
value of 0.000001 is suggested for this quantity. 

RERR = comparable to E, except that RERR represents relative error, whereas 
E represents absolute error . This quantity should normally be set 
equal to 0.01. 

Card 8 - FORMAT (7E10.4) 

Initial value of restart card. Values need only be given if the initial conditions 

of the case being computed are unequal to zero. Otherwise, a blank card will 

suffice here. The values read are: TINIT, Y1IN, Y2IN, Y3YN, VlIN, V2IN, V3IN. 

UNIT = initial or restart time (seconds). 

YlIN = initial value of Y^ (inches). 

Y2In = initial value of (inches). 
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Y3IN = initial value of Y. 
VlIN = initial value of V. 
V2IN = initial value of V, 
V3IN = initial value of V. 
Repeat all above cards for 


(inches), 
(inches/ sec) . 
(inches/sec), 
(inches/ sec) . 
each case. 


Insert a blank card as the last data card in order to stop the program. 
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96 . 

106 . 

120 . 

132 . 

144 . 

156 . 

168 . 

196 . 

212 . 

226 . 

240 . 

? 40 . 

280 . 

300 . 

360 . 

390 . 

436 . 

516 . 

623 . 

780 . 

1000 . 

.98 

.96 

.94 

. 9 ? 

.90 

• 88 

.86 

.82 

.80 

.73 

.76 

.74 

.72 

.70 

.66 

.64 

.62 

.60 

.58 

• 56 

.54 

.50 

.46 

.46 

.44 

.42 

.40 

.38 

.34 

.32 

.30 

.28 

.26 

.24 

.22 

.18 

.16 

.14 

.12 

.10 

.08 

.06 

.02 

.01 

.00 

-.01 

-.02 

-.03 

-.04 

-.06 

-.0 7 

-.06 

-.09 

-.10 

-.1 1 

-.12 

-.16 

-.18 

-.20 

-.22 

-.24 

-.26 

-.28 

-.32 

-.34 

-.36 

-.33 

-.40 

-.42 

-.44 

-.48 

-.50 

-.52 

-.54 

-.56 

-.58 

-.60 

3 . 2 C 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3 . 2 S 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3. 25 

3.25 

3.25 

3.25 

3.25 

3 . 2 " 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.26 

3. 25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

3.25 

-.0263 

—.04245 

- .0565 

-.0565 

-.0848 

-.113 

-.1415 

-.160 

-.159 

-.156 

-. 1-5 

-. 127 ? 

-.113 

-.099 

-. 127 2 

-.1415 

-. 1 7(1 





3000 0 

.0005 

.02 

.0001 

.002 

.000001 

.01 
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TYPE' OF EXCITATION! FUNCTION 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

4 

* 

* 

* 

* 

* 

* 

* 

4 

4 

* 

4 

4 

4 

4 

* 

* 

* 

* 

4 

* 

* 

* 

* 

4 

* 

4 

4 

4 

* 

* 

$ 

$ 

* 

$ 

* 

4 

* 

$ 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


4 

4 

4 

4 

4 

4 

4 

4 

4 



4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


61 


the STIFFNESS ANO DAMPING PROPERTIES ape SPECIFIED AS follows 
K 1 AND Cl TABLES 

Ke and c? constant 

K 3 AND C3 USER SUPPLIED FUNCTION 



Tr*F NONLINEAR LOAD VALUES BETWEEN HI AND BASE ARE AS FOLLOWS 


RELATIVE 

FORCE 

PFLATIvE 

FORCE 

RELATIVE 

force 

RELATIVE 

FORCE 

displacement 

pETwEEn 

OrS^LACEuENT 

9ET.EEN 

displacement 

RETWEEN 

displacement 

BETWEEN 

PET *EEN 


BETWEEN 


HETwEEN 


BETWEEN 


“1 AND ^ASE 

h) and dASE 

Ml AND H6SE 

Ml AND rtAsL 

HI AND dASE 

Ml AND base 

Ml AND BASE 

Ml ANO BASE 

UN) 

*LB» 

( IN) 

(LH> 

(IN) 

(LB) 

UN) 

(Li) 

1*00030 

-42^0,00000 

.56000 

-2*70.00000 

.12000 

-616.00000 

-.18000 

108.00000 

.92000 

-4210,00000 

.54000 

-2390.00000 

.10000 

-536.00000 

-.20000 

120.00000 

.9*000 

-4120,00000 

.52000 

-2300.00000 

.06000 

-452.00000 

-.22000 

132.00000 

.9400i» 

“AOmO. ooooo 

.50000 

-2220.00000 

.06000 

-364.00000 

-.24000 

144.00000 

.92000 

-39S0. 00000 

.4*000 

-2l*0.0000» 

.0*000 

-264.00000 

-.26000 

156.00000 

.90000 

-3*70.00000 

.46000 

-2050.00000 

.02000 

-120.00000 

-.28000 

166.00000 

.90000 

r37«0, 00000 

.4^000 

-J970. 00000 

.01000 

-35.00000 

-.30000 

180.00000 

.96000 

-37*0.00000 

.42000 

-10*0.00000 

0.00000 

0.00000 

-.32000 

196.00000 

.04000 

-3630.00000 

.*0000 

-1800.00000 

-.01000 

24.00000 

-.34000 

212.00000 

.P2040 

-35*0.00000 

.3*000 

-1 71 0.00000 

-.02000 

32.00000 

-.36000 

220.00000 

.00000 

-34*0.00000 

.36000 

-1620.00000 

-.03000 

36.00000 

-.38000 

240.00000 

.70OOO 

-33*0.00000 

.3*000 

-1540.00000 

-.0*000 

40 .00000 

-.40000 

260.00000 

.76000 

-3300.00000 

.32000 

-1*50.00000 

r. 05000 

46.00000 

-.42000 

280.00000 

.7^000 

-3220.00006 

.30000 

-1 370.00000 

-.06000 

52.00000 

-.44000 

300.00000 

.72000 

-3! 3O.CC000 

.29000 

-1300.00000 

-.07000 

56.00000 

-.46000 

328.00000 

. 71)000 

-30 r 0 . 0CO0C 

.26000 

-1200.00000 

-.06000 

60.00000 

-.40000 

360.00000 

« 60000 

-2970. 0000 u 

.2-000 

-i no.oooou 

-.09000 

64.00000 

-.50000 

390.00000 

•66000 

-2*00.00000 

.22000 

-10*0.00000 

-.10000 

72.00000 

-.52000 

436.00000 

•64000 

-2000.00000 

.20000 

-950.00000 

-.11000 

76.00000 

-.54000 

516.00000 

.62000 

-2710.00000 

.1*000 

-«20.0000u 

-.12000 

80.00000 

-.56000 

628.00000 

.6000 0 

-2630.00000 

. loOOO 

-7*0.00000 

-. 1*000 

88.00000 

-.58000 

780.00000 

. 5*0*0 

-2S5P.C0000 

.1*000 

-720.0000U 

-.16000 

96.00000 

-.60000 

1000.00000 


THF MOM. I Nr A» 

DAMP INC. COF. rr 

I C I ENT VALUES 

BETWEEN *1 And 

BASE ARE AS 

FOLLOWS 



relative 

camping 

RFL AT I VE 

DAMPING 

RELATIVE 

DAMPING 

RELATIVE 

DAMPING 

P I S P L ACFmt nT 

COFFFIC IENT 

DISPLACEMENT 

COEEF ICIEST 

displacement 

COEFFICIENT 

DISPLACEMENT 

COEFFICIENT 

r»E7'*EFN 

rr'T WF£li 

HE T**Efc‘ N 

REDEEM 

BETWEEN 

BETWEEN 

BETWEEN 

BETWEEN 

wl AND RASE 

MI AND CASE 

«J AND RASE 

MI AND RAit 

MJ AND BASE 

Ml AND BASE 

Ml AND BASE 

Ml AND BASE 

UN| 

(L*-1N/S€C* 

UN) 

(LH-IN/SEC) 

(IN) 

(LB-IN/SEC) 

(IN) 

(LB-IN/SEC) 

1.00000 

3.25000 

.56000 

3.2500U 

•12000 

3.25000 

-.18000 

3.25000 

.98000 

3.2*000 

.54000 

3.25000 

.10000 

3.25000 

-.20000 

3.25000 

.9&0.'0 

J. 25000 

.52000 

3.25000 

.08000 

3.25000 

-.22000 

3.25000 

.9/,0i/t) 

1.25000 

.50000 

3.25000 

.06000 

3.25000 

-.24000 

3.25000 

.020*0 

3.25000 

.4*000 

3.25000 

.0*000 

3.25000 

-.26000 

3.25000 

• 5 0 0 C .) 

1.25000 

.46000 

3.2500U 

.02000 

3.25000 

-.28000 

3.25000 

.*8000 

3.25000 

.44000 

3.2500U 

.01000 

3.25000 

-.30000 

3.25000 

• *6000 

3.25000 

.42000 

3.2500O 

0.00000 

3.25000 

-.32000 

3.25000 

.84000 

3.25000 

.*0000 

3.25000 

-.01000 

3.25000 

-.34000 

3.25000 

.*2000 

3.25000 

•3*000 

3.2500U 

-.02000 

3.25000 

-.36000 

3.25000 

.00000 

3.25000 

.36000 

3.2500U 

-.03000 

3.25000 

-.38000 

3.25000 

.7*000 

3.25000 

.3*000 

3.2SOOU 

-.0*000 

3.25000 

-.40000 

3.25000 

. 76QO0 

3.25000 

.32000 

3. 25000 

-.05000 

3.25000 

-.42000 

3.25000 

. 7* on 9 

3.25000 

.30000 

3.25000 

-.06000 

3.25000 

-.44000 

3.25000 

.72000 

3.25000 

.28000 

3.25000 

-.07000 

3.25000 

-.46000 

3.25000 

.7000*1 

3.25000 

.26000 

3.2SOOU 

-.08000 

3.25000 

-.48000 

3.25000 

.6*000 

3.25000 

.2*000 

3.25000 

-.09000 

3.25000 

. -.50000 

3.25000 

.66000 

' 3.25000 

.22-000 

3.25000 

-.10000 

3.25000 

-.52000 

3.25000 

•6*000 

3.25000 

.20000 

3.25000 

-. 11000 

3.25000 

-.54000 

3.25000 

.62000 

3.25000 

. I *000 

3.25000 

-.12000 

3.25000 

-.56000 

3.25000 

.60000 

1.25000 

.16000 

3.2500O 

-.14000 

3.25000 

-.58000 

3.25000 

.SPOOQ 

3.25000 

.1*000 

3.25000 

-.16000 

3.25000 

-.60000 

3.25000 


INPUT MOTION IS 

A MHOC* PULSE OESCRIhEO BY THE FOLLOWING TABLE 

TI»E 

ACCELERATION 

(SEC) 

(G-5) 

P.OO0DOO0 

0.0000000 

.00!000» 

-.01*1500 

.0020000 

-.0203000 

.003000* 

-.9*24500 

. 00* (:0 (II) 

-.0565000 

• OCSQiiU* 

- . OStSGOQ 

.0060000 

-.08*8000 

.0070000 

-.1 130000 

.00*1)000 

-.1*15000 

.0090000 

-.1570000 

.01000*0 

-.1600000 

.on oooo 

-.1590000 

.0120000 

1560000 

.0130000 

-.1*50000 

.01*0000 

-.1272000 

.OISOOOO 

-.1130000 

.0160000 

-.0990000 

.0170000 

-.1 1 30000 

.01*0000 

-.1272000 

.01*0000 

-.1*15000 

.0200000 

-.1700000 


PULSE DURATION = 2.0Q000E-02 SEC 



if) 

o 

Z 

O 

if) o 

a 2 3 

4J O If) 


* 



/> 



—4 

7 

• D 

Z 









* 



O uJ 

X 



o in ru 3 

X 









* 



2 x 

UJ 


(X 

3 

-H O 

o 


CO 







$ 



o o 

►— 


UJ 

UJ 

UJ O UJ 


Q XI 3 X) 3 X) 

3 

$ 



3 3* 

U 


xi xi 

x o xi 

►- 


z 

3 U.I Ui lil lil Lil 

* 



3 

< 


o 


ICQiO 



o 

I 

XI 

X 

XI 

I 

X) 




in *- 



a 


Oh2w 

z 


3 

u 

N, 3 

\ 3 

\ 

* 



*— ■ 

■Xi 


a 

o 

o z c 

c 


UJ Z 

Z 

z 

Z 

Z 

z 

s 



o x 

UJ 


z> 

1 

JI JaJ 

»—» 


X) 



»— < 


►-« 

►— » 

$ 



O X 

3 


a. 

Ui 

< O UIN 










* 



r\J ^ 

o 



c 


<1 









$ 



o a 

> 


z 

O 

— X 

a 









* 



• 

3 


O O 

U v£) 1 

G 









<1 



i— 



•-« 

• 

— z o a 

'jJ 









o 



c 

• — 


h- m 

G I UJ 

I— 









* 



2 



<j 


C *- Ll.' ^ 

2 









* 






-j >- 

uj k- o to 

•— > 









* 



_J 



3 

O: 

►“<3 0 



• 

• 

• 

• 

• 

• 

• 

$ 



O ,. ' 



o u 

h 1 O'J 

X 


c 

O 

o 

o 

o 

o 

o 

o 



UJ • 

u. 


3 > 

O G O X 

o 


1 

t 

I 

1 

1 

1 

1 

4* 



UJ _* 



<3 

UJ 

JUOO 

u 


II 

II 

ii 

II 

II 

II 

II 

<« 



u 

z 


u 


a i— • u 













X Uj 

»— < 



♦“ 

z — U) 

1— 



*— 


fV 


cr 


* 



U 2 

H- 


a 

z> 

XI — ' a. 

*— < 









* 




z 



o 

►— « 9- 

2 



XI 


■ft 


CO 


* 



►— U' 

o 


r^, 


■X II {/» 

*— 1 

X) 


X) 


XI 


XI 





C X 

u 



3 

t- G Z 

3 

z 


< 


<1 

rvj 

<1 

»*0 

* 



Z .1; 



3 

u. 

Z U us c 


c 




2 


2 


$ 

XI 


CO 

3 


NJ 

►— 

*-« rsi *— 

X 

>— 



XI 


X) 


CO 

* 

a 


3 <1 

-1 


• — 

2 

C Z -< ►- 

o 



u 

CO 

u 

Xi 

U 

XI 

* 

aJ 

2 

3 UJ 

•— ' 


x> 

>— « 

a o X) < 

X 

>— < 


o 

<L 

o 

<3 

o 

<3 

* 

►- 

O 

*— 2. 

js 



a 

— ' 1 CL 

X 

c- 



2 


5. 


2 

$ 

3 

*—> 

3: 



a. 

X. 

t Q.' Q. O 

U' 

z 

3 

3 


h- 


►— 


£ 

T 

►— 

>- 

z 


ui 


►- UJ UJ II; 


c- 

2 

z 

U 

z 

U 

z 

u 

$ 

<J 

< 

UJ »— 

c 



Ur 

— • ►— >— » — 

c 

g 

►— 

us c 

3 O 

u - 

o 

* 

a 


~ U. 



x. 

a 

— if . Z 

u. 


i — 

2 


2 


2 



<i 

•— 

_i U 




c 

■y _ 

"VI 

3 


3 

> 

3 

> 

3 

> 


a. 

i 

C <3 

<3 


i 


C 2 


a 

3 

O 


3 

r— 

3 

t— 

9 


X 

> xi 

-J 


< 

i/? 

3 u 

3 

< 


< 

•— « 

< 

*— < 

<t 


* 

_j 

UJ 




•— • 

Ui 

>- a 2 c 

<L 

*— 

•— < 

3 

3 

3 3 

3 

3 

$ 

c 

»“ 

3 <J 

o 

3 

h— 

3 

x o *-• 

2 

XJ •- 

a 

O 

X 

o 

X 

o 

■I* 

a 


2 

-J 

<V1 

►— 

_J 

uj a z • 

X 

u 1 


X) 

3 (X. 

3 

XI 

3 

* 

H- 


•— X? 

<1 

■ — ' 

z 

< 

> a o 

o 

a 



3 


3 


3 

$ 

2. 

u 

I— <3 

3 

u> 

•— 

:> 

3 u; 5 /. 

2 


— 

c 

> 

C 

> 

c 

> 


63 



000 U U TTTTT PPPP U U TTTTT 


UJ 

• in 

CL <. — 
in m in 
♦ uj 
O — i 
X o 

• z 

!►—»—• 

Ul UJ — 
a. (3 


p- ® ® ® m m m m in 4 4 444444 

oooooooooooooooooooooooooooooooooooooooo 
I I I I I I I I I I I I I I I I I I I I I I I I I I I I I II I I I I I I I t I 

UJ UJ UJ UJ UJ UJ UJ UJ UJUJUJUJ UJUJUJUJUJ UJ UJ UJ UJ UJ UJ UJ UJ UJ UJ UJ UJ UJUJUJUJUJUJUJUJUJ Ul UJ 
0'«~xmcMin0'0'X)CMP-— r-ninvCnrMC\JO'mp-4KP-'e«-.(7‘i/-'acnr'-ino4Xx^xin 

®0'0'®x®0'0'CMmr^44-«in®®<M — 

o > nr\j^^i/(XKi/i^in'0^-HS < jninj , inoi/)-Hfl0NsD'0'0NcDo-Hnifi'i®O"<nifl 

•j nN^inini> ® «\j^^ xni 7 inn!\j(Vin-c o m 4 ® ® otvj^ ® a* — m in r*- oiv ^ ® ® 
n^nco-wni/i © ^ 4* cm cm m 4 in ® r- ® 4 4 


z 

o o — 
z *-• in 

*- 4 »— UJ 
UUI 

a z u 
o o z 


• in 
ui t- in 

> ui <i 

•-. a x 


OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I f I I I I I I I I I 

LUUJ UJUlUJUJUJ UJ UJUJUJUJUJUJUJUJUJUJUJUJUJUJ UJ Ul UJ UJ UJ UJ UJ UJllJUIUJUJUJ UJ UJ UJ UJ UJ 
nsNn-tocoMor fc n-^f»-r*a'(7'^*)co®®if)^0'o®ni/i(>NoncDifiinn®i/)(\jO‘h* 
4inin4'04fM®in®®®0'®cM-*4oinmin®in®®o'in4®o4®m®4*^'-«4ocM 
—«®inomo'®o® *om4inr--«® o®®0'©inmp«.©m-«®f^®s0®©40‘in<M»^*-« 
4mr-^inin©o 4 ^ino'-^or- «o in mm*) o i\j 4®®^m®®'-*4P-o4r*- 04® cm ® 


m —* 

t i 


m ® -• cm 4 ® co ^(\jn n >j in ® p- O' 4 * 4 N 4 * 4 * 4 NCMCMCMCMmmr> 444 ininin ® ® 

i i i t i i i i i i i i i i i i i i i i i i i t i i i i i i i i i i i i i l 


oox®xp-p-p-f^p-sD®®vc®'©vo®®®®®®inminininLnmminininmininLnLnin 
-* ooooooooooooooooooooooooooooooooooooooo 
I t I I I t I I I I I I I I I I I I I I I I I I I I I I I I t I I I • I I I I I 
UJUJUJuJUJLJUJUJ UJUJUJUJUJUJUJUJUJUJUJUJUJUJ UJUJUJUJ UJ Ul UJ UJUJUJUJUJUJUJUJUJ UJUJ 

® cm 4 p- cm o- -<Ni/i-^nnin®'C '0 >o -*(> in a> 04 -« 4 *{M^r^oorM®r^r-<-^m ®4 p- r - 


_l CL 

CM 

^incj'on^ 

an 

in 


^nnivuiNiJa 

® m ® ® —* 


v£> ® ® 

O' O' r- 

4 

O' m 

in ® ® 

O 4 

UJ 

<n m 

p- sO 

® in in cm 

«— • 

cm ® 

— < co 

^ o> rvj — — < 

4 p- O' -• m 

cm O' m ® 

04® 

CM 0 0 

4 

4 h- 0 

4 r- 

a. 

Q 

if) 


n m m 4 

4 

® 

® 0 0 

4 N(\i N IU O' 

® 4 m 4 m 

p-ocMmin®p- 0 '©cMm 

4.® 

fw co 0 

CM 



X 

® 4 

1 1 

HriN- 

1 t 1 1 

f\J 

1 

m 

1 

in 

1 

® -• 
1 1 

HH(\jc\jnn 

1 1 1 1 1 1 

4 m ® p- ® 

1 t 1 1 1 

O' 

l 1 l l 

T 7 T 

^ CM CM 

1 • 1 

CM C\J CM 

1 1 1 

CM CM rj 

1 1 1 

n n 

t 1 

>- 

CL 


® ® 

® m m 4 

4 

4 

4 

m m 

m m m m cm cm 

cm ru cm cm cm 

(M CM CM CM 

CM ^ ^ 

r— * 

4^ 

*“•4 f — 4 

^ _ 


t— 

O U 

O O 

00000 

0 

0 

0 0 

OOOOOO 

00000 

OOOO 

OOO 

OOO 

O 

O O 

ooo 

0 0 

•— * 


UJ 

1 1 

1111 

1 

1 

1 

1 l 

l • l 1 1 1 

l 1 l 1 l 

till 

1 1 1 

1 I 1 

1 

1 1 

1 1 1 

1 1 

0 

O if) 

UJ UJ 

111 III UI UJ UJ 

UJ 

UJUJUJUJUJUJUJUJUJ 

UJ UJ u .1 til 111 

UJ UJ UJ UJ 

UJ UJ Ul 

1. 1 111 111 III 1. 1 111 111 1. 1 111 

UJ UJ 

0 

CL 

X 

® O' 

® ® p^ ® 

4 

0 

(M 

4 ® 

oorufiftjHfOir 

® 4 ®®ino — O'nnjin 

^4 ® 

«-* 4 4 

m ^ 

-j 


z 

n omM® 

m 

® (\J 0 

n n i*-- 4 O' O' 

0 ^ 0 ®® 

4 -« 4 x 

® CM ® 

CM CM 4 

® 

in r> 

4 ® O 

® 4 

UJ 

U 


p- m 

h^O'N® 

4 

4 - 

0 'nj(\J 4 njf\iinr^ 

so -• 4 in ® 

® ^ in -* 

© ® m 

0 ® p- 

p- 

O' cm ® ^ ® 

in 4 

:> 

O 


> n n n ® 'ji 


® 

O' 

® 4 ®'J'N J H 4 

® m ® 4 — < 

O' *> O' -• 

4 0 (VI 4 l/>Mj' 

r -4 4 

■OO'-I 

4 r- 


>- CM 
b- ~ 

-• in o 

U if) UJ 

o <i <n 
jx \ 
UJ z 
j> u_ -• 
o — 


j' * i ri j) oj ui jj y w jiirr* -r -i ^ mu ^ o im •r ui r ip •—< -j «o r* 

m— 'P-pavO—* mma''-*CMm 4 '£>®^— •cMCMm 44 in®xO'^— *'-*«“'--*—»{MCM<MCMmmm 

i i i i i i i i i i i i « i i > i i i i i i t i i i i l i i i i i i i i i i l i 

®'Oinm 444 nmmmmmm<M(MCMCMrij(MCM<MCMCMiMrMrM'-*-*^^«^— 
ooooooooooo oooooo oooooooooooooooooo ooo o o 
t I • I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 

UJUJUIUJUJUJUJUJ Ul UJ UI UJUJUJUJUJUJUJUJUJUJUJUIUJUlUJUJUJUJ UJUJUJUJUJUJUJUJUJ UJliJ 

irifl«M'}o 4 - 4 inop»m®inp*^'n®®<Mr- m p» o 4 * 4 cc ® xnm\j fo ^ n O' cm ® o r- 
cMP-® 4 r-m 4 CMfMCMr-®®inin>oinx 4 -*>Oin®mm®rM.o^®xo 4 ©®X'-^incMo 
n<fi -t^®®®®^®ino^or*-tvjp^<\j®mfn'Xf0^inrnmm®f^ 4 -» r- m ** © 
Htoa/Nivono^nn ® cm cm o m p- -« ® ® in -J n j ® O' -him 4 >0 ® 0 cm 4 r- O' cm in ® 


‘ r> ® -* 

1 1 1 


m s£> -« 

1 1 1 


1 i 1 1 1 1 1 1 1 1 1 


m4tnvor-xo'-* — •—*-**- »cMCMCMCMCMmmm 

It 1111 ill 1 1 t « ii 1 « • 11 






V 



® in in 4 4 4 4 

ro 

n no 

D r' PO OJ OJ OJ 

OJ OJ CV CM CM 

CM OJ CM O' 







^4 

^4 _4 _< 

4 -. 4-1 





y- 



0 

oooooo 

0 

0 

O O 

0000 

0 0 

0 

0 

0 

0 

0 

O 

ooo 

O 

0 0 

O 

O 

0 

O 

O O 

OOO 

O O 






if) 0 

1 

» 

1 1 1 1 1 

1 

1 

1 1 

till 

l l 

1 

1 

1 

1 

1 

1 

1 1 1 

1 

1 1 

1 

1 

1 

1 

t 1 

1 1 1 

1 1 





0 

<f) Ul 

UJ UJ 

U* ui Ul UJ UJ 

UJ 

iii iii i.i ui iii iii ui ui ui i . 1 tii iii ui iii 

UJ UJ Ui UJ 

Ul UJ UJ 

UJ 

UJ UJ 

UJ 

lil lii li) 111 Ui 

UJ UJ 





0 <r 

in 

l—t 

0 

a? ^ r*- <t 

—4 

ro 

•—* .-4 

:n ® Oj sD in p- 


m oj 0 0 

r- 

v© m >0 

OJ O O' 

0 m ® 

in 

n Oj 

m m 0 

® ® 





-J X 

\ 


0 

0 m 0 — « O' 



O' 

® O' X 0 

x — • 


O' 


0 

0 

oj oj -4 m 

OJ m O' 




•4 

r- m 

J 1 N C\J 

® p- 





jJ 


z 

—4 

0 

n ® n ^ 4 

-0 

r> 

-> > 

^ 0 

4 



0 

4 

0 

• 

4 M — 

01 0 -* 

X 

® m 

0 

^ 0 

4 O' O 

m -m 





> 

0 




CM 4 O' CM r- 

m 

0 

® O' 

n 0 -• -4 

4 X 

oj r- 

mo® 

■O ® O' 

0 

— > m 

4 

® ® 

0 

cm m 

p- O' cm m x 








4 

rvj ® »-4 rvj in ® 

- 

OJ 

1 

(M CO 

in O' — 

1 1 1 1 

-4 

(M OJ fO 

4 

1 

4 

in 4 r- x- 

- 

■ 

- 

- 

- 

CM CM CM 

CM CM m 

m m 


J— 

i— 

y— 

z 



* 


* * ’ * 








1 


1 


. • V 

1 

1 1 

1 

1 

1 

* 



1 * 





UJ 



nj 

000 ®®^ 

r- 


® ® 

® ® ® in m in 

in in in in ® 

4 

4 4 4 

4 

4 4 

4 

4 

4 

4 

4 4 

m m m 

n m 





X 

!X 


1—1 


0 c 0 c 0 

0 

0 

O O 

OOOO 

O O 

c 

0 

0 

c 

0 

0 

OOO 

0 

0 0 

O 

0 

0 

e 

0 0 

ooo 

0 c 





UJ 

O 

n 

1 

1 

1 1 1 1 1 

1 

i 

1 1 

iiit 

1 1 

1 

1 

1 

1 

1 

1 

1 1 t 

1 

t 1 

1 

1 

1 

1 

1 1 

1 .1 1 

1 1 





0 

H- 

Ul 

UJ 

UJ 

lii lit 111 tu Lu 

UJ 

UJ 

Ul UJ 

1 1 1 1 1 1 1 1 1 1 1 1 Ul U_i 

UJ Ul UJ 

Ui Ul 

Uj Ui u> uj 

Ui lu Uj 

Uj 

UJ UJ 

UJ 

Ui UJ 

Ui lu Ui 

UJ Ul 

-j 3 

3 


< 

O 

X 

a 

n 

r> o~ —* a 

u 

in 

X ® 

Oj CL 4 rO 

— n 

in 

r~. 

r- 

0 

0 

0 - 

-4 n >c 

cm cv m 

IT. 

m 

o- 


IT) ® 

P* CM if* 

4 4 




3 

-J 

'X 

u 

cii r> 4 on 

cr 

r- 

I s - 0 

4 c or — 

CM O' 

•-* 


m 

X 

X 

X 

x 0 m 

m 

x r- 

st 

CM 

0 

a 

— in 

P- P> O 

if in 




3 

CL 


z 

CM I s - 

0 4 r- 0 ^ 

•— « 

O' 

4 4 

-4 — X O' 4 

® Oj 

0 r- 

r» 

n 

0 CM 0 

4 

4 CM 

X 

m 

r» 

0 m 0 

CM ® *-h 

® ® 




3 

if) 

u 

*— • 

fVJ 4 

*- in •- ® 0 

OJ 

0 

4 4 

O' 0 O' oj r- 4 

cm r> 


r—t 

O 

>-4 

4 0 *-* 

m 

O ® 

CM 

O X' 

X 

® 0 

0 —4 m 

4 ® 

3 

3 

3 


>— • 

0 

*«» 

• 

• 

• • • • • 

• 

• 

• - • 

• • • • 

• • 

• 

• 

• 

• 

• 

• 

• • • 

• 

• • 

• 

• 

• 

• 

• • 

• • • 

• • 





C 



in 

CM 

1 

cv O' r» a- rv> 

till! 

4 

1 

a 

1 

— Oj 

1 1 

4 ) X ^- 

1 1 1 1 

— Oj 

1 I 

rr, 

1 

4 

1 

m 

1 

1 

0 

1 

t 

—■ — Oj 

1 1 1 

o- 

1 

cr> r*-. 

1 1 

4 

1 

in in 

1 1 

1 

f* 0 

1 1 

1 1 1 

1 1 


Q. 

a 



z 

UJ 

cv 


• 0 

O 

x x o- r- r- 

f- 

< 


® ® in m in in 

m if) 

m 

in 

4 

4 

4 4 4 

4 

4 4 

4 

4 

4 

4 

4 4 

r r> x. 

m m 


a 



X 


i. — 

r— 

O 

00000 

0 

0 

O O 

OOOO 

c 0 

0 

0 

0 

0 

O 

O 

Ooo 

0 

O 0 

C 

0 

O 

0 

0 0 

ooo 

0 0 

a 

a 

a 

a 

UJ 

if: 

in 

| 

1 

1 1 1 1 1 

1 

1 

1 1 

1 1 1 1 

1 1 

1 

1 

1 

1 

1 

1 

1 1 1 

1 

1 1 

1 

1 

1 

1 

1 1 

1 1 1 

1 1 





0 

if) Ul 

U! 

UJ 

ii i Uj Ul UJ uj 

Ul 

u> 

UJ lu 

Ui Ui UJ UJ U Ui 

Ui Ui 

UJ 

UJ 

Ui 

»i : 


UJ 

UJ U' 

u 

UJ Ui 

UJ 

Ui UJ 

Ui U UJ 

lu lu 





< 

< 

X 

o- 

CM 

in CM ® 4 0 

O' 

r> 

0 

OM-.S 

C O' 

0 



® 

p— i 

r~ 

in 0 x 

® 

O ® 


IT- 

OJ 

X 

4 OJ 

P -00 

p- 4 





_J 

X 

0 

O 

O 

® cm 0 m I s * 

«— 1 

vD 

NO I s * 

O' 0 — — 

l 0 r*- 

0 ® 

O' 

4 

® 

r>> 

Oj ® O' 

m 

® OJ 

O' 

m 

O 

m 

® X 

X O ® 

4 P- 





CL 


z 

m 

CM 

— m n- ® 

0 

IT 

4 r- 

O' m 0 

0 ® 

OJ O' 

m 

® 

4 

O' 

O' m m 

0 

m 4 

CM 

0 


m 

O X 

PWP 

4 CM 

i- 

y— 

*— 

y— 

n 

u_ 


<\i 

4 

rvj 0 0 4 x 

0 

in 

m O' 

O ® t\J N 

m 0 

0 



m 

O 

(M 

u> O' m 

X' 

n o- 

X 

3 

OJ 

01 m 4 

0 cm m 

m p- 





*— • 

0 

w 

• 

• 

• ♦ • • • 

• 

• 

• • 

• * • ♦ 

• • 

• 

• 

• 

• 

• 

• 

• 44 

• 

• • 

• 

• 

• 

• 

• • 

• • • 

• • 





c. 



l 

Oj 

1 

*- 4 — ru 4 
« l 1 l 1 

O' 

1 

t 

cm n 

1 1 

in x — — 

1111 

CM CO 

1 1 

4 

1 

m 

1 

® 

1 

•x 

1 


1 

«- — CV 

1 1 1 

CM 

1 

m n 

1 1 

4 

1 

m 

1 

1 

1 

X O' 

1 1 

1 1 1 

1 1 

3 

3 

3 


►- 

z 






























3 

UJ 



0 0 

a> x r> 

•£> 


® ® 

® xi in in 

in in 

mm® 

m 

4 

4 

4 4 4 

4 

4 4 

4 

4 

4 

4 

4 4 

m m m 

n m 




3 

X 




O 

0000 c 

O 

0 

0 0 

OOOO 

0 0 

0 

0 

0 

0 

O 

O 

ooo 

O 

0 0 

O 

0 

0 

0 

O O 

ooo 

0 0 




> 

Ul 

m 

n 

1 

1 

1 1 1 1 1 

1 

1 

1 1 

till 

1 1 

1 

1 

1 

1 

I 

1 

1 1 1 

1 

1 1 

1 

1 

1 

1 

1 1 

l l 1 

1 1 

1 —/ 

3 

Ji 


0 


u> 

Ul u 

Ul Ul Uj Xl UJ 

UJ 

u 

U! UJ 

U: Ui UJ U 

u u 

u 

Uj 

u 

u: 

U' 

UJ 

U UJ u 

u. 

Uj Ui 

UJ 

Uj 

Ui 

UJ 

U 1 Uj 

U lu UJ 

ui lu 





< 

< 

X 

IT. 

4 

ao 0 i 1 


4 

0 O'. 

® ~ C 4 

O' X 

a 

O 

® 


4 

O 

4 -’in 

4 

4 

sC 

4 

0 

(Mi 

4 in 

ru p « 

— CM 





-J X 

0 

in ui 

n- <vi ® u u 

Oj 

4 

r- 0 

Oj O' m D 

OJ O' 

m 

m 

X 

X 

r, 

m 

CM ^ U 

4 

0 — 

CM 

0 

0 

O 

4 O 

'CO'® 

sC 0 

O 

O 

O 


CL 


z 

0 

X 

x c cm ri ® 

X 

OJ 

4 'O 

O' 4 in 

m 

X 

4 

r^- 

OJ 

m 

O' 

0 '© r~ 

iTi 

O OJ 

CM 


o- 

r- 

in 4 

040 

r* '£> 





m 

u 

•— 

4 

m 

in ® a- ® cm 

OJ 

^-1 

cn 0 

m c 4 O' 

'X - 4 

4 

r- 

OJ 

1-4 


m 

r- 0 4 

O' 

m — 

X 


4 

4 

in p- 

»— * CM 4 

m p- 




O 

►— 1 

O 


• 

• 

• # • • • 

4 

• 

• • 

• • • • 

• • 

• 

• 

• 

• 

• 

• 


• 

• • 

• 

• 



• • 

• • • 

• • 




O 

c 



r- 

sC 


1 — • 

OJ 

r> in 

_ _ __ 

CM ^ 


m 

r- 

O' 



— • CM CM 

1 1 1 

CM 

m 4 

4 


® 



4-4 44 H 

_ 4 _4 

O 

0 

O 



in 


1 

1 

1 1 1 1 1 

1 

1 

1 1 

1 1 1 1 

1 1 

1 

1 

l 

1 

1 

1 

1 

t 1 

1 

1 

1 

1 

1 1 

1 1 1 

1 1 






tn 


4 

4 

4 j 4 4 4 

■t 

4 

4 4 

4444 

4 4 

4 

4 

4 

4 

4 

4 

4 4 4 

4 

4 4 

4 

4 

4 

4 

4 4 

4 4 4 

4 4 






UJ 

in 

O 

0 

00000 

O 

O 

0 0 

OOOO 

O O 

0 

0 

C 

O 

0 

0 

ooo 

O 

0 0 

O 

O 

O 

0 

0 c 

ooo 

O O 





X 

Z UJ 

1 

i 

1 1 1 1 1 

1 

t 

1 1 

till 

1 1 

1 

1 

1 

1 

1 

i 

1 1 1 

1 

1 1 

1 

1 

» 

1 

1 1 

1 1 1 

1 1 





-J aeC 

X 

UJ UJ 

UJ Ul UJ Ul u< 

uJ 

UJ 

UJ UJ 

lii UJ IL' II) 

U' UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

UJ 

uj uj u: 

UJ 

UJ UJ 

u* 

Ui 

UJ 

uJ 

UJ UJ 

lu UJ UJ 

UJ UJ 





*— 1 

0 

0 

cc 

cc 

O' *-* in ro ® 

U 

<VJ 

X OJ 

4 ® f*- ® 

^4 ® 

r- 

Ul 

»— 1 

r- 

»- < 

m cm in 0 

4 

m — 

0 

O 

c 

0 

p- m 

X CM P- 

4 in 





U 


z 

oj oj nj m n 4 in 


0 

m » 

cn o> ® 4 

4 4 


0 ® 

m m 

4 

N- hN 

m 

0 X 

® 

4 

CM 

0 

p- in 

MOP 

in m 






X 

»— ■ 

*— < 


*— 1 —4 r~> r-M 

»— < 

OJ 

Ou OJ 

nn 4 i/i 

sC h- 

X 

O 

*— 1 

m in 

r- 

O' OJ 4 

r- 

O CM 

in 

X 

»-« 

4 

® 0 

c\j in p- 

0 m 






>- 

w 

0 

0 

OOOOO 

O 

0 

0 0 

0000 

O O 

0 



— • 


—• 

-4 OJ OJ 

cm n n 

m 

n 

4 

4 

4 4 

in in in 

® ® 








0 

0 

O' O' 0 0 0 

O 

O' 

0 0 

O' O' 0 0 

O O' 

0 

O' 

O' 

O' a 

O' O' O' O' 

O' 

O' O' 

a 

a 

O' 

O' 

O O' 

O O O' 

O' 0 








in 

0 m 0 in 0 in 

0 in 

0 in 

0 in 0 in 

0 in 

0 in 

0 in 

0 

in 

0 in 0 in 

0 in 

0 in 0 m 

0 in 

0 in 0 

in 0 





Uj 


u 

0 

f — 4 

-iMtvnn 

4 

4 

in in 

® ® r- 

oj x 

O' O' 

0 

0 



cm cm m 

n 

4 4 

in m so 

vD C- 

X X O' 

O' 0 





X 


Ul 

0000000 

0 

O 

0 0 

0000 

0 0 

0 

0 

•—4 

>— < 

H 4 


«4 r 4 >H 


^4 • 

r-* 




—4 44 

4 ^ 44 ^ 

— • CM 





•— > 


in 

0 

0 

OOOOO 

0 

O 

0 0 

0000 

0 0 

0 

0 

0 

0 

O 

0000 

0 

O O 

O 

0 

0 

O 

0 0 

ooo 

0 0 





y~ 


— 

• 

• 


• 

• 

• • 

• * • • 

• • 

• 

« 

• 

• 

• 

• 

• • • 

• 

• • 

• 

• 

• 

• 

• • 

• • • 

• • 


64 


C 


SPECIFIED TIME HAS BEEN ATTAINED 



PROGRAM PN457( INPUT, OUTPUT »TAPE5aINPUT»TAPE6eOUTPUT»TAPE22) 

COMMON TPRINT.TMAX, IPSTEP*NCYCLS, MOTION, TITLE (15) »YBA,YBlNT (200) 
COMMON NR »NW * NCASE, MODEL »LOAOF » ID AMP, IFOFT , ICC* 

1 Ml, M2, M3, Kl, Cl »K2*GL»FA* ALOAD»ADAMP»BLOAD,BDAMP» 

2CL0A0, COAMP, OLOAO,OOAMP,HINIT,IFM7,AMPLO, FREQ* PEAKS, PDURS,PEAKH, 
3PDURH*NINCP*TINCP*TP (200) ,PUVAL(200> ,PULDOT(200) »T INIT, VI IN,V2IN, 
4Y3IN,V1 IN, V2IN,V3IN, TIME (6000) ,Y1 • Y2,Y3, VI ,V2,V3»N.VEC(6) ,0VEC<6) i 
5MAXINC»H,HM,M,E,AK0,NE,T , ELIMtlNDX, YB» YBDOT , 

60MEGA , WHO * W Y3Y2H, 8 Y3Y2H 

COMMON FILMT(6000), Y2MY1 (6000), VAPEAK (6000), YBPLOT (6000) 

COMMON IBUF(5000> 

C MAINLINE PROGRAM PN 457. THIS PROGRAM CALCULATES THE RESPONSE OF A 
C THRUST BEARING-ROTOR SYSTEM TO EXTERNALLY APPLIED SHOCK AND VIBRATION 
C IT TREATS THE SYSTEM AS A THREE-OEGREE-OF-FREEDOM VIBRATION MODEL 
C 

NR*5 

NW*6 

IFLAG*1 

5 READ (NR, 1010) NCASE, (TITLE ( I ) , I«1 , 8) 

IF (NCASE) 10,6,10 

6 IF ( IFLAG.EQ.2) CALL PLOT(18.,0.,999) 

9 CALL EXIT 

10 WRITE (NW,1000) 

WRITE (NW, 1015) 

CALL SDATE (DATE) 

WRITE (NW, 1005) NCASE, (TITLE ( I ), 1*1 , 8), DATE 
CALL INPUT 

IF (IFLAG.EQ.2) GO TO 24 
20 IF ( ICC.EQ. 13) GO TO 25 
IFLAG-2 

CALL PLOTSdBUF ,5000,22) 

GO TO 25 

24 CALL PLOT ( 18. ,0. ,-3) 

25 CALL SOLVE 
GO TO 5 

1000 FORMAT ( 7H1PN457 , 1 OX , 73HRESP0NSE OF VERTICAL THRUST BEARING TO AXI 
1 ALLY-APPLIED SHOCK OR VIBRATION/) 

1005 FORMAT ( I5«7A10*A5*2X«A8) 

1010 FORMAT (I5«7A10*A5) 

1015 FORMAT!// 1X,119(1H*>) 

END 


CDC 


CDC 

COC 


CDC 



SUBROUTINE DIFEaiN.T.VEC.DVEC) 

DIMENSION VEC (6) *OVEC (6) 

DIMENSION A(2) 

COMMON TPRINT »TMAX. IPSTEP.NCYCLS.MOT ION. TITLE (15) *YBA* YBINT (200) 
COMMON NR .NW.NCASE. MODEL. LOADF ♦ I DAMP* If OFT* ICC* 

I M1.M2.M3.K1.C1 .K2.0L.FA* ALOAD* ADAMP.BLOAD.BDAMP. 

2CL0AD.CDAMP.DL0AD.DDAMP.HIN IT .ifmt. ampld.freq* peaks .pours .peakh. 
3POURH.NINCP.TINCP.TP <200) .PUVAL(200> .PULDOT(200> .TINIT.Y1 IN.Y2IN. 
AY3IN* VI IN. V2IN.V3IN* TIME (60001.Y1.Y2.Y3.V1.V2.V3. 

5NDUM»DDUM (6) *0VUM(6) * 

5MAXINC.H.HM.M.E* AKO.NE.TTDUM. ELIM* INDX * YB» YBDOT . 


60MEGA.WH0.WY3Y2H.BY3Y2H 

COMMON FILMT(6000)«Y2MY1 (6000) * VAPEAK (6000) ♦ YBPLOT (6000) 

COMMON TZ.ITIME.YBPREV 

COMMON NONLIN.ITYPI * ITYP2. ITYP3.TAB1 .TAB2.TA83.C2.C3.K3. EM 

1DISPW1 (300) .DISPV2000) .DISPV3(300) .V1FTAB(300> .W2FTAB(300) • EM 

2W3FTAB(300) .DISPB1 (300) .DISPB2 ( 300 > .DISPB3 (300 > .B1FTAB<300) * EM 

3B2FTAB (300) .B3FTAB (300) .NOVI .NOV2.NOV3.NOB1 .N0B2.N0B3 EM 

REAL M1.M2.M3.C1.K1.K2.K3 EM 

EXTERNAL FX 


C THIS SUBROUTINE DEFINES THE DIFFERENTIAL EQUATIONS SOLVED BY RONKU 
DATA MAX IT .ERR/ 100. .01/ 

VEX ( X) =ALOAD*EXP (BLOAD*X ) 

VPF < X ) “CLOAD*X**DLOAD 
BEX ( X ) *AD AMP*EXP ( BDAMP*X) 

BPF < X ) *CO AMP*X*«ODAMP 
PI*3. 1415926535 
IFM7*IFOFT-7 
IF (MODEL. EQ. 3) 60 TO 20 
DVEC ( A) =*VEC ( 1 ) 

DVEC (5) *VEC (2) 

DVEC (6) “VEC (3) 

20 GO TO (30. 60. 90.120). IFM7 
30 0MEGA»2.*PI«FP£Q 

YB*AMPLD # SIN (OMEGA*T) 

YBDOT*OMEGA*AMPLO*COS ( OMEGA»T > 

YBA*-YB* (2. *PI*PREQ> **2/386.069 

IF (MOTION.EQ.O) 60 TO 130 

YB“-386. 069/OME6A**2*AMPLD # SIN (OMEGA*T) 

YBDOTa-386. 069/OME6A*AMPLD*COS ( OMEGA* T) 

GO TO 130 
60 YB*0. 

IF(T.LT.PDURS) YB=PEAKS*SIN (PI*T/PDURS> 

YBDOT*0. 

YBA«YB 

IF (MOTION.EQ. 1 ) GO TO 65 

IF(T.LT.PDURS) YBDOT*PI/PDURS*PEAKS»COS (Pl*T/PDURS) 

GO TO 130 

65 IF(T.LT.PDURS) YB*386.069*PEAKS*PDURS/PI* (T-PDURS/PI* 

1 SIN (PI*T/PDURS) ) 

IF (T.LT. POURS) YBDOT«386.069*PEAKS*PDURS/PI»(1.-COS(PI*T/PDURS>) 

IF ( .NOT. (T.LT.PDURS) ) YBDOT*772. 138*PEAKS*PDURS/PI 
IF (.NOT. (T.LT.PDURS) ) YB*386 . 069*PEAKS*PDURS»*2/PI*YBDOT* ( T-PDURS) 
GO TO 130 
90 YB*0. 

IF(T.LT.PDURH) YB*0 .5*PEAKH<* ( 1 .-COS (2.*PI*T/PDURH) ) 

YBDOT*0. 

YBA*YB 

IF (MOTION.EQ. 1 ) GO TO 95 

IF(T.LT.POURH) YBD0T*PI/PDURH*SIN(2.*PI*T/PDURH)*PEAKH 
GO TO 130 

95 IF(T.LT.PDURH) YB*386. 069/A ,*PEAKH* ( T**2-PDURH**2/ (2.*PI**2) * 

1 (l.-C0S(2.*PI*T/PDURH) ) ) 

IF (T.LT .PDURH) YBD0T=386. 069/A. *PEAKH* (2.*T-PDURH/PI * 

1 SIN ( 2 . *P I *T/POURH) ) 

IF ( .NOT , (T.LT. PDURH) ) YBD0T=193. 035*PEAKH*PDURH 

IF (.NOT. (T.LT. PDURH) ) YB*386. 069/A. *PEAKH*PDURH**2*YBD0T* (T-PDURH) 
GO TO 130 



120 ANINCP*NINCP 

PDURT*ANINCP*TINCP 
IF(T.GT. PDURT) YB-0.0 
IF(T.GT. PDURT) Y800T-0.0 
IF(T.6T. PDURT. ANO. MOTION. EQ.O) GO TO 130 
IF (T.GT .PDURT • AND. MOT ION. EQ. 1 ) GO TO 125 
NP1-NINCP* 1 

CALL TLU (T * YB*TP«PUVAL *NP1 ) 

IF (MOTION.EQ.l) GO TO 125 
CALL TLU(T»Y8DOT*TP*PULDOT*NPl> 

GO TO 130 

125 YBA-YB 
1240 A(1)»TZ 

A (2) *T 
IOP-1 

IF(T.6T. PDURT) GO TO 1270 
IF ( I T IME.EO. 1 ) GO TO 1260 
1250 MRET»126 

CALL SIM1NI (YB*FX»A»ERR*0»MAXIT*1 . *MRET) 

IF (MRET .EQ. 126) GO TO 126 

YB*386. 069*YB* YBPREV 
GO TO (127*1280*1265) * IOP 

1260 ITIME-2 
IGR*1 

YBPREV*0.0 

IF(TZ) 1261*1250*1261 

1261 A ( 1 ) *0 .0 
A (2) *TZ 
I0P»3 

GO TO 1250 
1265 YBPREV*YB 
GO TO 1240 
C SAVE YB VALUE 
C T GREATER THAN PDURT 
1270 IF(IGR.EQ.3) GO TO 1275 
A (2) -PDURT 
IGR*2 
IOP*2 

GO TO 1250 
1275 YB-YBPDUR 
GO TO 2126 
1280 YBPDUR-YB 
GO TO 127 

126 WRITE (NW* 102) MAXIT *ERR 
WRITE (NW* 103) 

127 IF (T.LT .PDURT .0R.IGR.LE.2) GO TO 2127 

2126 YBDOT-DOTOUR 
GO TO 2128 

2127 CALL TLU (T , YBDOT *TP*YBINT.NP1) 
YBDOT«YBDOT*386.069 

IF ( IGR.NE .2) 60 TO 130 

IGR=3 

DOTDUR- YBDOT 

2128 YB=YB*YBDOT* (T-PDURT) 

130 IF (M0DEL.NE.3) 60 TO 150 

ARGU-VEC <2 ) -YB»HINIT 
IF (ARGU.LT • .0002) ARGU=EL IM 
IF (LOAOF .EQ.4) WY3Y2H-WEX < ARGU) 

IF (LOADF . EQ.4) WHO* WE X (HINIT ) 

IF (LOADF .EQ.5) WY3Y2H-WPF ( ARGU) 

IF (LOAOF .E0.5) WHO=WPF (HINIT) 

IF ( IDAMP.EQ.6) BY3Y2H=BEX ( ARGU) 

IF ( I0AMP.EQ.7) BY3Y2H=BPF (ARGU) 

GO TO 190 



C SELECT FUNCTIONS 

ISO ARGU*VEC (6) -VEC (5) ♦HINIT 

IF(AR6U.LT..0002> ARGU*ELIM 
IF (L0ADF.EQ.4) WY3Y2H*WEX ( AR6U) 
IF(L0A0F.EQ.4) WHOaWEX (HINIT ) 
IF(LOAOF.EO.S) WY3Y2H*WPF (ARGU) 
IF (LOADF .EQ.5) WHO=WPF (HINIT ) 

IF ( IDAMP.EQ.6) BY3Y2H*BEX ( ARGU) 


IF(IDAMP.EO.T) BY3Y2H*BPF (ARGU) 

C NOW OEFINE DIFFERENTIAL EQUATIONS 
C CORRECTIONS DIFEQ 

190 IF(NONLIN.EQ.O) GO TO 195 EH 

CALL DEQNL (VEC.DVEC) EH 

GO TO 401 EH 

195 IF (MODEL-2) 200»300.400 EH 


200 DVEC(1)*(K2/M1)*(VEC(5)-VEC<4> > -(Kl/Ml > » ( VEC(4> -YB) «C1/M1*(DVEC 

1 (4)-YB00T) 

300 DVEC(2)=-(l./M2)*WY3Y2H*(l./M2)*WHO* < 1 ,/M2) * (OVEC <6) -DVEC (5) > 

1 *BY3Y2H-(K2/M2)*(VEC(5)-VEC(4) ) 

0VEC(3)»-(1./M3)*WH0*(1./M3)*WY3Y2H-(1./H3)*(0VEC(6)-0VEC(5) )*BY3Y 
12H 

IF (H00EL.EQ.2) DVEC ( 1 ) a (K2/M1 ) * < VEC (5) -VEC (4) ) - (Kl/Ml > * ( VEC (4) - 
1 YB) 

GO TO 401 

400 DVEC (2) *VEC ( 1 ) 

DVEC ( 1 ) =-WH0*WY3Y2H- (DVEC (2) -YBOOT ) *BY3Y2H 
DVEC ( 1 ) aQVEC ( 1 ) /M3 

401 RETURN 

100 FORMAT (/ 6(3X,3HVEC.I3> ,5X . 1HT.6 (3X.4HDVEC. 13) ) 

101 FORMAT(1X,6E9.3,F5.4,6E10.4) 

102 FORMAT ( 1H0 .29HMAX IMUM NUMBER OF ITERATIONS. 13, 25H WAS REACHED BErO 
IRE EPS *,E11.4) 

103 FORMAT ( 5X.6HF0R YB) 

104 FORMAT (5X.9HF0R YBDOT) 

END 
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FUNCTION FK1 <Y1MYB»0Y1MYB> 

REAL K1 

KI=58000. 

FK1*K1*Y1MYB 

RETURN 

ENO 

FUNCTION FC1 (Y1MYB*DY1MYB) 

FC1=. 00001 

RETURN 

END 

FUNCTION FK2 ( Y2MYB»DY2MYB) 

REAL K2 

K2=670000. 

FK2*K2»Y2MYB 

RETURN 

END 

FUNCTION FC2(Y2MYB«0Y2MYB) 
FC2*. 00001 

RETURN 

END 

FUNCTION FK3 (H»E) 

A*105. 

B*— 2554.8 
FK3*A*EXP (B*H) 

RETURN 

END 

FUNCTION FC3(H.E) 

C*.31 1 12E-3 

Da-1.4984 

FC3=C*H**D 

RETURN 

END 



SUBROUTINE CALCOM 
DIMENSION CLX (20) »CLY (20) 

COMMON TPRINT * TMAX * IPSTEP*NCYCLS»MOT ION* TITLE <15) , VBA. YBINT (200) 
COMMON NR.NW.NCASE.MOOEL.LOADF, IOAMP, IFOFT » ICC » 

1 Ml. M2. M3 .Kl, Cl .K2.GL.FA. ALOAD. ADAMP.BLOAD.BDAMP. 

2CLOAD.CDAMP, OLOAO.DOAMP.HINIT. IFM7.AMPLD. FREQ. PEAKS. POURS, PEAKH. 
3PDURH.NINCP*TINCP*TP(200) .PUVAL (200) ,PULDOT(200) .TINIT.Y1IN.Y2IN, 
4Y3IN.V1IN* V2IN.V3IN. TIME (6000) .YI.Y2.Y3.V1 ,V2»V3»N»VEC(6) »DVEC(6> . 
5MAXINC.H.HM.M.E.AK0.NE.T . EL1M.INDX. YB.Y8D0T . 

60MEGA.WH0 » WY3Y2H.BY3Y2H 

COMMON F ILMT (6000 ) .Y2MY1 (6000) .VAPEAK (6000) .YBPLOT (6000) 

COMMON IBUF (5000) 

DATA X0RIG.Y0RI6.AXLEN, AYLEN/2. .1.5. 12. .6*/ 

WRITE (NW.202) 

202 FORMAT (1H1.30HROAD MARKERS FOR CALCOMP PLOTS) 

NVALS-INDX 

NPTS*NVALS/IPSTEP 

I*NPTS*IPSTEP*1 

J-I*IPSTEP 

WRITE (NW.200) NVALS.NPTS. I . J 
CALL FACTOR (.75) 

C CHANGES IN CALCOM. INSERT AFTER CALL TO PLOTS 

C STOMP OUT NEGATIVE FILM THICKNESSES. TAG FIRST VAL FOR ERROR MESSAGE. 
ITAG*0 

CALL PLOT (XORIG, Y0RI6.-3) 

DO 20 K*1.NPTS 
IF(ITAG) 15.15.16 

15 IF (FILMT (K) .LT. 0.) ITAG*K 

16 IF (FILMT (K) .LT. 0.) FILMT(K>*0. 

20 CONTINUE 

CALL SCALE (TIME, AXLEN.NPTS.IPSTEP) 

WRITE (NW ,20 1 ) TIME (I) »TIME(J) 

IF ( I TAG) 22,22,21 
21 XPAGE=TIME(ITAG)/TIME(J) 

CALL SYMBOL ( XPAOE , 0 ... 14 . 7HCONT ACT , 30 . . 7 ) 

C SCALE THE AXIS ACCORDING TO THE DATA BUT FORCE THE MINIMUM FILMT TO 0. 
C DEFINE AN ADDITIONAL FILMT TO INSURE AT LEASE ONE ZERO 
22 FILMT ( I ) *0. 

C CALL SCALE USING I POINTS, IT WILL STORE 0. AS FILM(J) AND OELTAV IN 
C FILMT (J*IPSTEP> 

NP1*NPTS*1 

CALL SCALE (FILMT , AYLEN »NP1 , IPSTEP) 

II*NP1»IPSTEP*1 
JJ* II*IPSTEP 

WRITE (NW.203) F ILMT ( 1 1 ) .FILMT (UJ> 

C NOW MOVE FIRSTV ANO OELTAV BACK WHERE THEY BELONG. 

FILMT (I)*FILMT( J) 

FILMT (J)»F ILMT (J. IPSTEP) 

C SCALE DATA FOR TIME AND INPUT MOTION 
CALL SCALE (TIME, AXLEN.NPTS, IPSTEP) 

CALL SCALE ( YBPLOT. AYLEN, NPTS. IPSTEP) 

CALL PLOT t-XORIC.-YORIG.-3) 

WRITE (NW. 204) YBPLOT ( I ), YBPLOT (J) 

C DRAW THE AXIS FOR THE APPROPRIATE INPUT MOTION 

OIF (MOTION ,EO. 0 .ANO. IFOFT .EQ. 8)CALL AXIS ( 1 . , 1 .5.24HINPUT VIBR 
1ATION - INCHES, 24. AYLEN, 90. .YBPLOT ( I ) .YBPLOT (J) ) 

OIF (MOTION .EQ. 1 .AND. IFOFT .EQ. 8)CALL AXIS ( 1 . . 1 .5.37HINPUT VIBR 
1ATION - ACCELERATION IN GAS, 37. AYLEN. 90., YBPLOT (I) .YBPLOT (J>) 

OIF (MOTION .EQ. 0 .AND. IFOFT .GT. 8)CALL AXIS ( 1 . » l .5.20HINPUT SHOC 
IK - INCHES, 20.AYLEN, 90. .YBPLOT (I) .YBPLOT(J) ) 

OIF (MOTION .EQ. 1 .AND. IFOFT .GT. 8ICALL AXIS ( 1 . » 1 .5.33HINPUT SHOC 
IK - ACCELERATION IN GAS ,33 .AYLEN. 90. .YBPLOT ( I ), YBPLOT (J) ) 

WRITE (NW.20S) 

C ORAW THE AXIS FOR FILM THICKNESS 

OCALL AXIS(X0RIG,Y0RIG»31HBEARING FILM THICKNESS - INCHES. 

131, AYLEN, 90., FILMT (I) .FILMT (J)> 

WRITE (NW.206) 



on o 


C ORAM TIME AXIS 

OCALL AXIS(XORIG»YORIG, 14HTIME - SECONDS.-14.AXLEN.O. . 
lTlMEd) ,TIME(J) > 

CALL PL0T(X0RIG.Y0RIG»-3> 

WRITE (NW*207) 

C PLOT THE GRAPHS 

IF(NPTS.LT.30) NOPON*l 

IF (NPTS.GE.30) NOPON«NPTS/30 

CALL LINE(TIME.YBPLOT, NPTS.IPSTEP.NOPON.3) 

CALL LINE (TIME .F1LMT • NPTS. IPSTEP.NOPON. 1) 

WRITE (NW.208) 

C ORAM A CENTERLINE TO REPRESENT EQUILIBRIUM FILM THICKNESS 
98 CALL PLOT(-XORIO,-YORIG,-3) 

WRITE (NW»209) 

00 99 K*l,13 

CLY(K)»YORIG*HINIT/FILMT(J) 

99 CLX(K)«X0RIG*FL0AT(K-1)/12.*AXLEN 
CLX ( 14)*0.0 
CLX(15>«1.0 
CLY<14) *0. 

CLY ( 15) *1 • 

CALL CNTRLN(CLX,CLY,13,l) 

WRITE (NW. 210) 

RETURN REFERENCE TO LOWER LEFT HAND CORNER AND LETTER TITLE 


100 CALL SYMBOL (2.50,0.50, • 14.TITLE. 0. ,75) 
FNCASE«NCASE 

CALL SYMBOL (11.5, .30, .100,1 1HCASE NO. * ,0.»11> 


CALL NUMBER <999. ,0. 30 ». 10 »FNCASE,0.,-1) 

CALL SOATE (DATE) 

CALL SYMBOL < 11. 5 .0.15*. 10 .DATE »0.*8) 

C PERFORM ANNOTATION 

OIF (MODEL .EQ. 1) CALL SYMBOL (4.50.9,65. . 14. 

1 53HSIMULAT0R, VERTICAL ON ISOLATORS 
OIF (MOOEL .EQ. 2) CALL SYMBOLS. 50*9. 65*. 14, 

1 53HSIMULAT0R VERTICAL ON RIGID MOUNTS 
OIF (MODEL .EQ. 3) CALL SYMBOL (4.50*9.65*. 14. 

1 55HSIMULAT0R VERTICAL ON RIGID MOUNTS. CASING. AND FLEXURE. 0. .55) 
CALL SYMBOL (4.50*9.25.. 14. 19H INPUT FUNCTION IS .0..19) 

OIF ( IFOFT .EQ. 8) CALL SYMBOL (999. .9,25. . 14. 

1 40HSTEA0Y-STATE VIBRATION .0..40) 

IF ( IFOFT .EQ. 9. AND. MOTION. EQ.O) CALL SYMBOL (999. .9,25. . 14. 

140HHALF ilNE DISPLACEMENT SHOCK .0..40) 

IF (IFOFT .EQ. 9. AND. MOTION. EQ.l) CALL SYMBOL (999. .9.25. . 14. 


CDC 

CDC 

•0..53) 

.0. *53) 


140HHALF SINE ACCELERATION SHOCK 
IF ( IFOFT. EQ. 10. AND. MOTION. EQ.O) CALL 
140HHAVERSINE DISPLACEMENT SHOCK 
IF ( IFOFT. EQ. I O.ANO. MOTION. EQ.l) CALL 
140HHAVERSINE ACCELERATION SHOCK 
IF (IFOFT.EQ.il. AND. MOT ION. EQ.O) CALL 


. 0 . .40 ) 

SYMBOL (999. .9.25. .1^. 
<0.»40> 

SYMBOL (999. .9. 25. .14. 
•0. .40) 

SYMBOL (999., 9. 25*. 14. 


141HSH0CK DISPLACEMENT VALUES READ IN AS DATA, 0., 41) 
IFdFOFT.EQ.il. AND. MOTION. EQ.l) CALL SYMBOL (999. ,9.25. . 14. 
141HSH0CK ACCELERATION VALUES READ IN AS DATA, 0.. 41) 

GO TO (110, 120. 130, 140), IFM7 

110 CALL SYMBOL (4.50,8.85,. 14, 13HAMPLITUDE' IS ,0.,13) 

CALL NUMBER (999. ,8.85, .14, AMPLD , 0 ... 5) 

111 IF (MOT I ON .EQ.O) CALL SYMBOL (999. , 8 .85 » . 14, 7H INCHES, 0. .7) 
IF (MOTION.EQ. 1 ) CALL SYMB0L(999.,8.85».14,7H GFS ,0.»7) 
GO TO (112,116.116,140) ,IFM7 

112 CALL SYMBOL (999. ,8.85,.14,17H FREQUENCY IS ,0.,17> 

CALL NUMBER (999., 8. 85,. 14, FREQ, 0., 5) 

CALL SYMBOL (999. ,8.85, . 14, 3H HZ.0.,3) 

GO TO 150 

115 CALL SYMBOL (4.50,8.85, .14, 14HPEAK VALUE IS ,0.»14> 

CALL NUMBER (999. ,8.85, . 14.0PEAK, 0. ,5) 

GO TO 111 



116 CALL SYM80L (999. *8,85* • 14*24H PULSE DURATION IS *0.*24> 

CALL NUMBER (999 • *8.85* . 14»ODOR*0. *5) 

CALL SYMBOL (999. *8.85*. 14*8H SECONDS*0. *8) 

GO TO 150 
120 opeak=peaks 

ODOR*POURS 
GO TO 115 
130 OPEAK»PEAKH 
ODOR=PDURH 
GO TO 115 

140 ODOR»FLOAT(NINCP)*TINCP 

CALL SYMBOL (4. 50*8. 85*. 14*25HPEAK VALUE IS SHOWN *0.»25) 

GO TO 116 

150 CALL SYMB0L(4. 57*8. 32*. 14*3*0. *-l> 

CALL SYMBOL (5.00*8,25* • 14* 17H « INPUT FUNCTIONS. * 17) 

CALL SYMB0L(4. 57*8. 07*. 14*1*0. *-l) 

CALL SYM60L(5.00*8.00*.14*32H ■ THRUST BEARING FILM THICKNESS*0. * 
132) 

WRITE(NW.211> 

CLX ( 16) =4.50 
CLY ( 16) *7.82 
CLX ( 17) *5.25 
CLY ( 17) *7.82 
CLX (18)^0. 

CLY ( 18) *0 • 

CLX < 19) *1 • 

CLY ( 19) *1 • 

CALL CNTRLN (CLX (16) »CLY (16) *2*1) 

CALL SYMBOL (5.42*7.75* • 14, 26HEQU I LIBRIUM FILM THICKNESS, 0. ,26) 
CALL PLOT (-.4*0., ”3) 

CALL DASHPT (0., 11. 3*. 113) 

CALL DASHPT (14. 7*11.3*. 147) 

CALL DASHPT (14.7*0. *.113) 

WRITE (NW*212) 

200 FORMAT (/5X*6HNVALS»* I5»6H NPTS«*I5*3H I**I5*3H J**I5> 

201 FORMAT ( /5X *8HTIME ( I ) « »E12.5* 8HT IME (J)**E12.5) 

203 FORMAT (/5X , 10HFILMT (II) = »E12.5* 10HFILMT (JJ)*»E12.5) 

204 FORMAT (/5X * 10HYBPLOT ( I ) »*E12.5* 10HY8PLOT (J) a *E12.5) 

205 FORMAT (/5X,25HDIAG VERT AXIS-1 DRAWN ) 

206 FORMAT (/5X .25HDIAG VERT AXIS-2 DRAWN ) 

207 FORMAT (/5X,25HDIAG HORIZ AXIS DRAWN ) 

208 FORMAT (/5X*25HCURVES PLOTTED ) 

209 FORMAT (/5X*25H0RIGIN SHIFTED ) 

210 FORMAT (/5X*25HCENTERLINE DRAWN ) 

211 FORMAT (/5X,25HANN0TATI0N ALMOST DONE ) 

212 FORMAT (/5X*25HANN0TATI0N DONE ) 

RETURN 

END 
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ooooo nnnnn n n r> n on 


SUBROUTINE INPUT 

C THIS SUBROUTINE IS A PART OF PROGRAM WSHAKEW 
C IT SERVES TO PREPARE THE INPUT FOR WSHAKEW 

C IT CALLS A SUBROUTINE WFILMW WHICH FINOS EQUILIBRIUM FILM THICKNESS. 

C PROGRAM WRITTEN FOR UNIVAC 1107 
C 

CON ON TPRINT.TMAX.IPSTEP.NCYCLS. MOT ION. TITLE (15) ,YBA» YBINT (200) 
COMMON NR .NW.NCASE. MODEL .LOAOF . IOAMP . IFOFT . ICC* 

1 M1,H2.M3,K1,C1.K2,GL,FA,AL0AD»ADAMP,BL0AD,BDAMP. 

2CLOAO. COAMP, DLOAD. DDAMP, HINI T.IFM7.AMPLO. FREQ. PEAKS. POURS. PEAKH. 
3POURH,NINCP.TINCP,TP(200) ,PUVAL(200) ,PULD0T(200) ,T INIT , Y 1 IN, Y2IN. 
AY3IN.V1 IN. V2IN.V3IN, TIME (6000) . Y 1 . Y2 , Y3 ♦ V 1 . V2, V3 .N, VEC (6) ,DVEC(6> , 
5MAXINC .H.HM.M.E.AKO.NE.T. ELIM.INOX. ' YB.YBDOT, 

60MEGA.WH0.WY3Y2H.BY3Y2H 

COMMON FILMT (6000) .Y2MY1 (6000) , VAPEAK (6000 ) .YBPLOT (6000) 

COMMON TZ.ITIME.YBPREV 

COMMON NONLIN, IT YP1 ,ITYP2»ITYP3,TAB1,T AB2 ,T AB3.C2.C3.K3, 

1DISPW1 (300) ,DISPW2(300) .OISPW3 ( 300 ) ,W1FTAB(300) .W2FTAB(300) . 
2W3FTAB (300) .DISPB1 (300) .DISPB2 (300) .DISPB3<300) .B1FTAB (300) , 
3B2FTAB ( 300) ,B3FTAB(300> ,N0W1 .N0W2.N0W3.N081 .N0B2.N0B3 
REAL M1.M2.M3.C1.K1.K2.K3 
LOGICAL 01, 02, 03. 04, 05.06, 07.08, 09, 010 

NONLIN* 0 USE EXISTING VERSION OF PROGRAM 
NONLIN* 1 USE NEW VERSION 3/70 

INDICATES ONLY NONLINEARITY IN THE SYSTEM IN THE THRUST 
BEARING. 

LOGICAL NEW 

NEW INDICATES NONLIN = 1 
WRITE (NW , 1500 ) 

PRINT A ROW OF ASTERISKS 
WRI TE (NW » 1 030 ) 

WRITE (NW, 1020) 

WRITE (NW. 1031 ) 


CHOOSE OPTIONS 

READ NEW PARAMETERS 

READ (NR.30 ) MODEL .LOAQF , IOAMP, IFOFT , ICC. MOTION. 
1 NONLIN, ITYP1 , T AB1 ITYP2 TAB2, ITYP3.TAB3 
30 FORMAT (715,3 (I5.E10.4) ) 

NEW* NONLIN. EQ.l 

IF (TABl.NE.O.O.ANP.ITY 0 ! ,NE. 3) HP I TE (HI*. 1533) 
IFUAB2.NE.O.O.ANO.ITYP2.NE.3) WRITE (NW.1534) 

IF (TAB3.NE.0.0. AND. IT YP3.NE .3) WRITE (NW, 1535) 


SET LOGICAL VARIABLES AND TEST FOR CORRECTNESS OF INPUT 


01*MODEL.LT • 1 

O2*MO0EL.GT .3 

03*L0ADF.LT.4 

04*1 0ADF.GT.5 

05* IOAMP.LT .6 

06*I0AMP.GT .7 

07*IF0FT.LT.8 

08*IF0FT.GT.ll 

09*ICC.LT . 12 

01 0* ICC.GT . 1 3 

IF (01 .OR. 02 )WRITE(NW,40) 

IF (NEW) GO TO 35 FM 

IF ( 03. OR .04) WRI TE (NW ,50 ) 

IF (05.0R.06)WRITE(NW,60) 

35 IF <07 .OR .08 ) WRITE(NW,70) EM 

IF (09.0R.010) WRITE (NW,80) 


EM 

EM 

EM 

EM 

EM 

EM 

EM 

EM 

EM 

EM 

EM 

EM 


EM 

EM 

EM 

EM 

EM 

EM 

F.l 
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n n nn 


c 


ERROR MESSAGES 


40 

FORMAT ( 

35H0 

IMPROPER 

INPUT 

CARO 

2, COL 5. 

50 

FORMAT ( 

35H0 

IMPROPER 

INPUT 

CARD 

2.COL10. 

60 

FORMAT ( 

35H0 

IMPROPER 

INPUT 

CARO 

2, COL I 5. 

70 

FORMAT ( 

35H0 

IMPROPER 

INPUT 

CARD 

2.COL20. 

80 

FORMAT ( 

35H0 

IMPROPER 

INPUT 

CARD 

2.C0L25. 


IF (NEW) 

GO TO 36 






IF ( 03 .OR. 04. OR. 05 .OR .06 ) CALL EXIT 
36 IF (01. OR. 02. OR. 07. OR. 08. OR. 09. OR. 010) 
IF (MODEL.EQ. 1 ) WRITE (NW, 1040 ) 

IF (MODEL. EQ. 1 ) WRITE (NW, 1050) 

IF (MOOEL.EO. 1 ) WRITE (NW* 1 040 ) 


CALL EXIT 


IF (MOOEL.EO. 1 ) WRITE (NW.1400) 
IF (MOOEL.EO. 1 ) WR I TE (NW » 1 060 ) 
IF (MODEL. £0*1 ) WRITE (NW, 1400) 
IF (MOOEL.EO. 1 ) WR ITE (NW » 1 070 ) 
IF (MODEL.EQ. 2) WRITE (NW. 1050) 
IF (MODEL.EQ. 2) WRITE (NW. 1400) 


IF(M0DEL.EQ.2> WRITE(NW,1040) 
IF (MODEL.EQ. 2) WRI TE (NW . 1 060 ) 
IF (MOOEL.EO. 2) WRITE (NW , 1 040) 
IF (MODEL.EQ. 2) WRITE (NW, 1400) 
IF (M0DEL.EQ.2) WRITE (NW. 1070) 
IF (M0DEL.E0.2) WRITE (NW, 1400) 
IF (MOOEL.EQ.3) WRITE (NW, 1050) 
IF (M0DEL.EQ.3) WR ITE (NW, 1400 > 
IF (MODEL.EQ. 3) WRITE (NW, 1060) 
IF (MOOEL.EQ.3) WR ITE (NW , 1400 ) 
IF (M00EL.E0.3) WRITE\(NW, 1040) 
IF (M00EL.E0.3) WR ITE (NW , 1070 ) 
IF (MODEL.EQ. 3) WRITE (NW, 1 040 ) 


EM 

EM 

EM 


PHYSICAL PARAMETERS I/O 

IF (NEW) READ (NR. 90) Ml ,M2»M3»K1 ,K2,K3,C1 ,C2»C3*HINIT 
IF (NEW) GO TO 109 
READ(NRf 90) MI ,M2»M3,K1 , Cl »K2 
90 FORMAT (8E10.4) 


C CORRECTION TO CHECK FOR M3=0 
IF (M3) 902,900,902 
C M3 = 0 

900 WRI TE (NW.90 1 ) M3 
CALL EXIT 

901 FORMAT (24H0 IMPROPER INPUT M3 * ,E10.4) 

902 WRITE (NW, 1020 ) 

WRITE (NW , 1080) 

IF (LOAOF . EQ.4) WRI TE (NW , 1 040 ) 


IF (LOAOF . EQ.4) 
IF (L0ADF.EQ.4) 
IF (LOAOF. EQ.4) 
IF (LOAOF .EQ.4) 
IF (LOAOF .EQ.4) 
IF (LOAOF. EQ. 5) 
IF (LOAOF .EQ.5) 
IF (LOAOF .EQ.5) 
IF (LOAOF. EQ.5) 
IF (LOAOF .EQ.5) 
WRITE (NW, 1 1 1 0 ) 
IF ( IDAMP.EQ.6) 
IF(IDAMP.£Q.6> 
IF ( IDAMP.EQ.6) 
IF ( I0AMP.EQ.6) 
IF ( I0AMP.EQ.6) 
IF ( I0AMP.EQ.6) 
IF ( IDAMP.EQ. 7) 


WR ITE (NW , 1 090 ) 
WR ITE (NW , 1 040 ) 
WRITE (NW, 1400 ) 
WRITE (NW, 1 100) 
WRITE (NW, 1400) 
WR I TE (NW , 1 090) 
WRITE (NW , 1400 ) 
WRITE (NW ,1040) 
WRITE(NW.llOO) 
WRI TE (NW, 1 040 ) 

WR I TE ( NW , 1 040 ) 
WRITEINW, 1120) 
WRITE (NW, 1040) 
WRITE (NW ,1400) 
WRI TE (NW, 1 130 ) 
WRITE (NW, 1400) 
WR ITE (NW, 1 1 20 ) 


EM 


74 



IF(IDAMP.EQ.7) WRITE (NW, 1400) 

IF(IDAMP.EQ.7) WRITE (NW.1040) 

IF (IDAMP.EQ.7) WRITE (NW, 1130) 

IF ( IDAMP.EQ.7) WRITE (NW ,1040 > 

WRITE <NW» 1531 ) 

WRITE (NW. 1020 ) 

WRITE <NW. 1400) 

C READ LOAD AND DAMPING PARAMETERS 

READ (NR. 90) ALOAD *8L0AD*CL0A0»0L0AD»ADAMP»BDAMP» COAMP »DDAMP 
IF (L0ADF.EQ.4) WRITE (NW, 1230) ALOAD. BLOAD 
IF (L0ADF.EQ.5) WRITE(NW,1235) CLOAD.DLOAD 
IF(IDAMP.EQ.6) WRITE (NW, 1245) ADAMP.BDAMP 
IF(IDAMP.E0.7) WRITE (NW. 1240) COAMP. DDAMP 
C READ THE LOCAL GRAVITATIONAL ACCELERATION UNITS) AND AERODYNAMIC 
C FORCES 

109 READ (NR, 90 )_ GL.FA.ELIM EM 

C CALCULATE THE EQUILIBRIUM GAS FILM THICKNESS VIA A SUBPROGRAM WFILMW 

IF (NEW) CALL FILMT2 EM 

IF(NONLIN.EQ.O) CALL FILM 

C PRINT FILM THICKNESS AND STEADY STATE ROTOR FORCES 
IF(ELIM.GT.O.O) GO TO 110 
ELIM=.0002 

110 WRITE (NW. 1251 ) EL1M 
WRITE (NW. 1500 ) 

WRITE (NW, 1020 ) 

C CONVERT HINIT TO MILS FOR PRINTOUT PURPOSES 
HINIT«HINIT*1000. 

WRITE (NW, 1250) HINIT, FA. 6L 
C RECONVERT TO INCHES FOR CALCULATION PURPOSES 
HINIT*HINIT/1000. 

WRITE (NW .1020) 

IF (NEW) CALL NLINP(l) EM 

IF (NEW) GO TO 112 EM 

IF (MODEL. EQ.l) WRITE (NW, 1220) Ml, M2. M3.K1, Cl »K2 
IF (MODEL. EG. 2) WRITE (NW, 1340 ) Ml, M2, M3, K1.K2 
IF (MODEL. EQ. 3> WRITE (NW . 1330 ) M3 
C CHANGE UNITS 

112 Ml=Ml/386.069 EM 

M2=M2/ 386.069 
M3=M3/ 386.069 
WRITE (NW. 1020) 

WRITE (NW. 1531 ) 

WRITE (NW. 1 020 ) 

WRITE (NW. 1 140 ) 

IF ( IFOFT .EQ.8) WRITE (NW, 1040) 

IF ( IFOFT .EQ.8) WRITE (NW , 1 150 ) 

IF ( IFOFT .EQ.8) WRITE (NW , 1 040 ) 

IF ( IFOFT .EQ.8) WRITE (NW, 1400) 

IF ( IFOFT .EQ.8) WRITE (NW , 1 160 ) 

IF(IFOFT.EQ.B) WRITE (NW, 1400) 

IF ( IFOFT .EQ.8) WRITE (NW, 1 170) 

IF ( IFOFT .EQ.8) WRITE (NW, 1400) 

IF ( IFOFT .EQ.8) WRITE (NW, 1180) 

IF ( IFOFT .EQ.9) WRITE (NW, 1400 ) 

IFUFOFT.EQ.9) WRITE(NW,1150) 

IF ( IFOFT .EQ.9) WRITE (NW, 1400) 

IF ( IFOFT .EQ.9) WRITE (NW, 1040) 

IF ( IFOFT .EQ.9) WRITE (NW, 1 160) 

IF ( IFOFT .EQ.9) WRITE (NW, 1040) 

IF ( IFOFT .EQ.9) WR ITE (NW , 1400 ) 

IF ( IFOFT .EQ.9) WRITE (NW, 1 170) 

IF ( IFOFT .EQ.9) WRITE (NW, 1400) 

IF( IFOFT. EQ.9) WRI TE (NW , 1 1 80 ) 

IF(IFOFT.EQ.IO) WRITE (NW, 1400) 

IF(IFOFT.EQ.lO) WRITE (NW, 1 150) 

IF ( IFOFT .EQ. 10) WRITE (NW, 1400 ) 
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IF(IFOFT.EO.IO) WRITE (NW.1160) 

IF (IFOFT.EQ. 10) WRITE (NW. 1400) 

IF (IFOFT.EQ. 10) WRITE (NW.1040) 

IF (IFOFT.EQ. 10) WRITE (NW, 1170) 

IF (IFOFT.EQ. 10) WRITE (NW. 1040) 

IF(IFOFT.EQ.IO) WRITE (NW. 1400) 

IF(IFOFT.EQ.IO) WRITE (NW. 1 180) 

IF(IFOFT.EQ.IO) WRITE (NW. 1400) 

IF (IFOFT.EQ.il) WRITE (NW. 1400) 

IF(IFOFT.EQ.ll) WRITE (NW. 1150) 

IF(IFOFT.EQ.ll) WRITE (NW.1400) 

IF(IFOFT.EQ.ll) WRITE (NW. 1160) 

IFdFOFT.EG.il) WRITE (NW. 1400) 

IF(IFOFT.EQ.ll) WRITE (NW. 1 170) 

IF(IFOFT.EQ.ll) WRITE (NW. 1400) 

IFdFOFT.EQ. 11) WRITE (NW.1040) 

IF ( IFOFT .EQ .11) WRITE (NW.1180) 

IF ( IFOFT .EQ.11)WRITE( NW.1040) 

WRITE (NW. 1531 ) 

WRITE (NW.1020) 

WRITE (NW. 1 190 ) 

lFdCC.EQ.12) WRITE (NW. 1040) 

IFOCC.EQ.12) WRITE (NW. 1200) 

IF ( ICC.EQ. 12) WRITE (NW.1040) 

IFOCC.EO.12) WRITE (NW.1400) 

IFOCC.EQ.12) WRITE (NW.1210) 

IF (ICC.EQ. 13) WRITE (NW. 1200) 

IF (ICC.EQ.13) WRITE (NW.1400) 

IFOCC.EQ.13) WRITE (NW.1040) 

IF (ICC.EQ.13) WRITE (NW.1210) 

IFOCC.EQ.13) WRITE (NW. 1040) 

WRITE(NW,1400> 

WRITE (NW, 1020) 

IF (NEW) CALL NLINP(2> 

C PRINT PARAMETERS ASSOCIATED WITH FORCING FUNCTION 
IFM7*IFOFT-7 

GO TO (120,130,140,150) ,IFM7 
C STEADY STATE SINE FORCE 
120 READ (NR, 90 ) AMPLD.FREQ 

WRITE (NW ,1320) FREQ 

IF (MOTION.EQ. 0 ) WRITE (NW. 1520) AMPLD 
IF (MOTION.EQ. 1 ) WRITE (NW. 1530) AMPLD 
GO TO 160 

130 READ(NR,90) PEAKS, POURS 
WRITE (NW. 131 0 ) POURS 
IF (MOTION.EQ.O) WRITE (NW, 1520) PEAKS 

IF (MOTION.EQ. 1 ) WRITE (NW, 1 530) PEAKS 
GO TO 160 

140 REAO(NR,90)PEAKH,PDURH 
WRITE (NW, 1300 ) POURH 
IF (MOTION.EQ.O) WRITE (NW. 1 520) PEAKH 
IF (MOTION.EQ. 1 ) WRITE (NW. 1530) PEAKH 
GO TO 160 

150 WRITE (NW ,1260 ) 

IF (MOTION.EQ.O) WR I TE (NW , 1261 ) 

IF (MOTION .EQ. 1 ) WRITE (NW. 1262) 

C ABOVE IS HEADING FOR SHOCK PULSE TABLE 

C NOW READ THE NUMBER OF INCREMENTS IN THE PULSE AND THE INCREMENTAL 
C TIME INTO WHICH PULSE IS DIVIDED 
READ (NR, 154) NINCP.TINCP 
154 FORMAT (I5.F10.4) 

C INITIALIZE FIRST Y8 VALUE 
INCPO=NINCP*l 

REAO (NR. 90 ) (PUVAL ( I ) , 1*2. INCPO) 

151 PUVAL ( 1 ) *0.0 
TP ( 1 ) *0. 0 
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153 DO 159 1*2 » INCPO 
EYE* I - 1 

TP(I)=EYE«TINCP 
IM1-I-1 
I P 1 = I ♦ 1 

159 IF (.NOT. (I.EQ.l.OR. I .EO. INCPO) ) PULDOT(I)*(PUVAL(IPl)- 
1PUVAL(IM1))/(2.*TINCP) 

DO 158 1*1 , INCPO 
MAPGE=( 1/45) *45-1 
IF(MAPGE.EQ.O) WRI TE (NW, 1531 ) 

158 WRITE (NW* 1265) TP < I ) .PUVAL ( I ) 

WRITE (NW, 1500) 

ANINCP=NINCP 
PDURT=ANINCP*TINCP 
WRITE (NW, 1510) POURT 
1265 FORMAT (13X,2F12.7) 

PULDOT ( 1 ) * (PUVAL (2) -PUVAL ( 1 ) ) /T INCP 
PULDOT ( INCPO) = (PUVAL < INCPO) -PUVAL (NINCP) ) /TINCP 
C FORM A NEW TABLE FOR THE INTEGRAL OF YB 
IF (MOTION. EQ.l) CALL FORMT 
WRITE (NW, 1531 ) 

C READ PROGRAM CONTROL CARDS 

160 WRITE (NW * 1531 ) 

READ (NR, 91) IPSTEP«M,MAXINC*NCYCLS.TPRINT,TMAX,H,E»HM,B0GUS 
91 FORMAT (4I5,6E10.4) 

WRITE (NW,1500) 

WRITE (NW, 1020) 

NCONE=NCYCLS 

IF (NCYCLS.EQ.O) NCONE= NCYCLS*1 

WRITE (NW, 1280) TMAX ,MAX INC ,NCONE *H, TPRINT , IPSTEP ,E , HM ,M .BOGUS 
C READ AND WRITE INITIAL CONDITIONS 

READ(NR,90)TINIT,Y1IN.Y2IN,Y3IN,V1IN,V2IN,V3IN 
WRITE (NW, 1270) TINIT.Yl IN,V1IN,Y2IN,V2IN,Y3IN,V3IN 
WRITE (NW, 1531 ) 

1010 FORMAT ( 15 , 75H 

1 > 

1020 FORMAT ( 1H ,119(1H*>) 

1030 FORMAT (40X,15HPROGRAM OPTIONS/20X.58HOPTIONS SELECTED FOR THIS PAR 

1TICULAR RUN ARE DESIGNATED BY/70X.8H /71X,6HOPTION/70X, 

28H ) 

1031 FORMAT ( 10X.25HCHOICE OF VIBRATION MODEL/) 

1040 FORMAT (20X.50H ) 

1050 FORMAT (20X,50H1 * THREE-DEGREE OF FREEDOM SYSTEM USING ISOLATORS) 
1060 FORMAT (20X,53H2 = THREE-DEGREE OF FREEDOM SYSTEM USING RIGID MOUNT 
IS) 

1070 FORMAT (20X,52H3 = SIMPLE MODEL, ENTIRELY RIGID EXCEPT FOR GAS FILM 
1) 

1080 FORMAT (/10X,34HGAS FILM FUNCTIONAL REPRESENTATI0N/15X, 19HL0AD CHAR 
1ACTERISTIC/) 

1090 FORMAT (20X.35H4 .= EXPONENTIAL LOAD CHARACTERISTIC) 

1100 FORMAT (20X.38H5 = POWER FUNCTION LOAD CHARACTERISTIC) 

1110 FORMAT ( 10X,22HDAMPING CHARACTERISTIC/) 

1120 FORMAT (20X,35H6 = EXPONENTIAL DAMPING COEFFICIENT) 

1130 FORMAT (20X.38H7 = POWER FUNCTION DAMPING COEFFICIENT) 

1140 FORMAT (1H0.9X.27HTYPE OF EXCITATION FUNCTION/) 

1150 FORMAT (20X, 27H8 = STEAOY SINUSOIDAL INPUT) 

1160 FORMAT (20X, 19H9 = HALF SINE SHOCK) 

1170 FORMAT ( 20X , 44H10 = HAVERSINE SHOCK ) 

1180 FORMAT (20X , 44H11 = ARBITRARY SHOCK (TABLE) ) 

1190 FORMAT (1H0, 9X.26HIS CALCOMP OUTPUT DESIRED-) 

1200 F ORMAT ( 20X , 8H12 = YES) 

1210 FORMAT (20X , 7H13 = NO) 
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1220 FORMAT (1H0»20X,53HPARAMET£RS OF THE THREE-DEGREE SYSTEM USING ISOL 
1ATORS//12X, 7HMASS OF* 5X.14HEFFECTIVE MASS* 4X.7HMASS OF* 

2 6X.9HSTIFFNESS. 6X * 7H0AMP ING* 7X, 7HFLEXURE/13X*6HCASING*9X 

3 » 8H0F PLATE. 7X.6HR0T0R . 10X, 2HOF * 1 2X .2H0F * 9X. 9HSTIFFNESS/ 
426X.11HAND FLEXURE. 18X. 9HISOLATORS* 5X. 9HIS0LAT0RS/ 

514X »4H (LB) , 1 OX *4H (LB) *1 OX »4H (LB) . 9X, 7H(LB/1N)» 5X,11H(LB-SEC/IN> 

6* 4X, 7H(L8/IN)//10X,5(G10.3,4X) ,£13.4) 

1230 FORMAT (1H0. 9X *23HDE SCRIPT ION OF GAS FILM// 

120X.50HTHE EXPONENTIAL LOAD CHARACTERISTIC IS OF THE FORM/ 
225X.22HL0A0 (L8) = A*EXP (B«H) /20X.5HWHERE/ 

325X.27HH * FILM THICKNESS < INCHES) /25X, 4HA » .E12.4.5H (LB)/ 

425X, 4H8 * .E12.4, 7H( 1/IN)> 

1240 FORMAT ( 1H0 »9X»53HTHE POWER FUNCTION DAMPING COEFFICIENT IS OF THE 
1FORM/20X*21HB'LB*SEC/IN) * C*H**0/10X*5HWHERE/ 

220X.28HH * FILM TH1CKNESSS (INCHES)/ 

320X* 3HC« .E12.4.10H LB-SEC/IN/ EM 

420X. 3HD« *E12«4* 7H (1/IN) ) EM 

1250 FORMAT (10X*29HEQUILIBRIUM FILM THICKNESS IS.G12.5* 5H MILS// 

1 15X *56H ASSUMING STEADY-STATE AERODYNAMIC FORCES ON THE ROTOR OF* 
2G12.5* 3H LB/ 15X.34HAND A LOCAL GRAVITATIONAL FIELD 0F.G12.5* 

315H TIMES STANDARD) 

1251 FORMAT (/10X.85HNON-L INEAR LOAD AND DAMPING FUNCTIONS ARE HELD CONS 
1TANT AT FILM THICKNESSES LESS THAN.G10.3.8H INCHES.) 

1260 FORMAT (1 OX. 62HINPUT MOTION IS A SHOCK PULSE DESCRIBED BY THE FOLLO 
1WING TABLE) 

1261 FORMAT </20X,4HTIME*2X,I2HDISPLACEMENT/19X,5H (SEC) *4X. 

1 8H ( INCHES) ) 

1262 FORMAT (/20X.4HTIME.2X. 12HACCELERATI0N/19X,5H(SEC) ,4X,5H(GXS> ) 

1270 FORMAT ( 1H0 »9X *29HINI T I AL OR RESTART CONDITIONS/ 

120X.12HINITIAL TIME. 1 l'x, lh= .61 0. 3.8H SECONDS/ 

220X.24HDISPLACEMENT OF MASS 1 »,G10.3» 7H INCHES/ 

320X.18HVELOCITY OF MASS 1 ,5X, 1H« ,G1 0 .3, 7h IN/SEC/ 

420 X .24HDISPLACEMENT OF MASS 2 *. G10.3, 7H INCHES/ 

520 X. 18H VELOCITY OF MASS 2,5X.1H*,G10.3, 7H IN/SEC/ 
620X.24HDISPLACEMENT OF MASS 3 *,G10.3» 7H INCHES/ 

720X.18HVELOCITY OF MASS 3,5X,1H«,G10.3,7H IN/SEC/) 

1280 FORMAT (/ 10X.26HPROGRAM CONTROL PARAMETERS//15X . 19HDESIRED TERMINA 
1TION/20X.26HTIME VALUE WILL NOT EXCEED, F 1 0. 4. 8H SEC0NDS/20X* 

248HAS A SAFETY MEASURE WE WILL NOT PERMIT MORE THAN. 15. 6H STEPS/ 
320X.25HCALCULATION WILL CONT INUE * I5.28H CYCLES AFTER PULSE OURATIO 
4N/15X.9HSTEP SIZE/20X.45H INITIAL STEP SIZE FOR CALCULATION PURPOSE 
5S IS.G10.3.8H SECONDS/20X .28HVALUES ARE PRINTED OUT EVERY *G10.3. 

68H SECONDS/20X.5HEVERY. I5.38HTH POINT IS PLOTTED IF CALCOMP IS USE 
7D/20X.41HERROR CRITERION FOR INTEGRATION TECHNIQUE.G10.3/ 20X.20HM 
8INIMUM STEP-SIZE = ,G12.‘5,8H SECONDS/20X .49HN0. OF INTEGRATIONS BEF 
90RE STEP-SIZE IS OOUBLED=. I5/20X.48HNORMALIZED ERROR LIMIT FOR INT 
1EGPAT ION TECHNIQUE. F10. 4) 

1300 FORMAT < 1 OX » 37HINPUT MOTION IS HAVERSINE SHOCK PULSE/ 

215X.17HPULSE DURATION IS.F10.4. 8H SECONDS/ ) 

1310 FORMAT ( 1 OX , 3 7H INPUT MOTION IS HALF-SIN E SHOCK PULSE/ 

215X* I7HPULSE DURATION IS,F10.4*8H SECONDS/) 

1320 FORMAT ( 1 OX , 59H0ESCRIPTI0N OF INPUT MOTION IS STEADY-STATE SINE EXC 
1ITATION/ 

315X.12HFRE0UENCY IS.FI0.4, 3H HZ/ ) 

1330 FORMAT (10X.58HTHRUST BEARING ON RIGID FLEXURE (SINGLE DEGREE OF FR 
1EEDOM)/10X,13HMASS OF ROTOR/ 13X.4H (LB)/10X»G10.3/) 

1340 FORMAT ( 10X.55HPARAMETERS OF THE SYSTEM ON RIGID MOUNTS ARE AS FOLL 
10WS//13X.50HEFFECTIVE MASS EFFECTIVE MASS MASS OF ROTOR. 
26X.9HSTIFFNESS.9X.8HFLEXURE /12X.16H0F LOWER HOUSING. 2X» 19H0F STAT 
30R ♦ FLEXURE. 16X* 16H0F LOWER HOUSING, 6X.9HSTIFFNESS/ 

416X, 12H (MASS1 ) , (LS) ,4X, 12H (MASS2) t (LB) , 7X, 1 2H(MASS3) . (LBI.6X, 

5 7H (LB/ IN ) ,11X,7H(L8/IN)/ 16X .G1 0 .3, 6X , G1 0 . 3. 9X »G1 0 .3,2 (5X.E12.4) ) 
1350 FORMAT(30X,IAHPROGRAM OUTPUT) 



1360 FORMAT <14X,4HTIME» 6X« 8HGAS FILM, 4X, 8HPEDESTAL* 7X.2HY1.10X* 
I2HY2 , 10X »2HY3, 10X ,2HV1 * 10X ,2HV2« 10X , 2HV3/ 

224X, 9HTHICKNESS, 2X,10HDEFLECTIVE/25X, 7H(Y3-Y2>» 5X, 7H(Y2-Y1)/ 

3 12X, 9H < SECONDS) , 4X,6H(MILS), 6X,6H(MILS). 6X,6H(MILS), 6X* 

46H(MILS), 6X « 6H (MILS ) , 4X, 10H (MILS/SEC) , 2X, 10H(MILS/SEC) » 2X, 
510H(MILS/SEC) ) 

1370 FORMAT (10X»9(F10.4*2X) ) 

1380 FORMAT (25X,50HRESTART CONDITIONS <FINAL) AND IDENTIFICATION CODE/ 

I 14X,4HTIME, 9X,2HY1,10X,2HY2,10X,2HY3»10X,2HV1,IOX,2HV2*10X»2HV3* 

2 6X»5HNCASE/ 14X,5H(SEC), 6X,6H(MILS), 6X,6H(MILS>, 6X,6H(MILS)» 

3 4X » 10H (MILS/SEC) • 2X» 10H(MILS/SEC) » 2X, 10H(MILS/SEC)/ 
411X,7(F10.4,2X) ,15) 

1235 FORMAT ( 1H0*9X,27HCHARACTERIST ICS OP GAS FILM// 

120X,53HTHE POWER FUNCTION LOAD CHARACTERISTIC IS OF THE FORM// 
225X, 18HL0AD <LB) = C*H**D /20X.5HYHERE/ 

325X,27HH * FILM THICKNESS ( INCHES) /25X, 4HC a ,E12.4, 

418H LB-SEC/IN. *«M1*D)/ 

525X , 4HD ■ ,E12.4 ) 

1245 FORMAT (1H0,9X»53HTHE EXPONENTIAL DAMPING COEFFICIENT IS OF THE FOR 
1M /20X,25HB <L8*SEC/IN) * C*EXP <D*H) /I OX , 5HWHERE/ 

220X,28HH * FILM THICKNESSS < INCHES) / 

320X , 4HC » ,E12.4,15H LB-SEC/ ( IN**2) / 

420X, 4HD * «E12,4»21H (DIMENSIONLESS UNITS)) 

1400 FORMAT (/) 

1500 FORMAT <//) 

1510 FORMAT (// 10X,16HPULSE DURATION =, 612. 5, 4H SEC) 

1520 FORMAT (15X,17HPEAK AMPLITUDE IS,F10.4,20H INCHES DISPLACEMENT) 

1530 FORMAT (15X,17HPEAK AMPLITUDE IS,F10.4,17H G^S ACCELERATION) 

1531 FORMAT (/1H1 ) 


1533 

FORMAT ( / 

5X»30H IMPROPER 

INPUT 

CARD 

2 

COL. 

40 

) 

EM 

1534 

FORMAT (/ 

5X , 30H IMPROPER 

INPUT 

CARD 

2 

COL. 

55 

) 

EM 

1535 

FORMAT (/ 

5X , 30H IMPROPER 

INPUT 

CARO 

2 

COL. 

70 

) 

EM 


999 RETURN 
END 
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SUBROUTINE FILMT2 

COMMON TPRlNTtTMAX*IPSTEP.NCYCLS* MOTION* TITLE (15) « YBA* YBINT (200) 
COMMON NR, NW *NCASE ♦ MODEL *LOADF * IDAMP* IFOFT * ICC* 

1 M1*M2«M3*K1*C1*K2*6L*FA* ALOAO* ADAMP *BLOAD* BDAMP* 

2CLOAD*COAMP*DLOAO»DDAMP.HINIT*IFM7.AMPLD*FREQ.PEAKS*PDURS.PEAKH* 
3POURH* NINCP* T INCP»TP(200) *PUVAL (200 ) *PULOOT (200) » T INI T ♦ YI IN* Y2IN, 
4Y3IN*V1IN*V2IN*V3IN* TIME (6000) ♦ Y 1 * Y2 . Y3 * VI . V2 * V3 *N* VEC (6 ) *0VEC(6> • 
5MAXINC*H*HM,M*E,AK0*NE*T, ELIM*INDX* Y8*YBD0T* 


60MEGA* WHO* WY3Y2H»BY3Y2H 

COMMON FILMT (6000) * Y2MY 1 (6000 ) * VAPEAK (6000 ) * YBPLOT (6000) 

COMMON TZ*ITIME*YBPREV EM 

COMMON N0NLIN*ITYP1.ITYP2.ITYP3*TAB1*TAB2*TA83*C2*C3*K3* EM 

10ISPW1 (300) *0ISPW2 (300 ) *OISPW3 (300) . WlFTAB (300) ♦ W2FTAB (300) * EM 

2W3FT AB ( 300 ) *OISP8l (300) *DISPB2<300) *OISPB3(300) *B1FTAB(300) * EM 

3B2FTA0(3OO) *B3FTAB (300) *N0W1 *NOW2.NOW3*NOB1 *N0B2*N0B3 EM 

REAL M1*M2*M3*C1*K1*K2*K3 EM 


CALL NL INP (3) 

W3F*M3*GL-FA 

WHO*W3F 

GO TO (40*20*30) *ITYP3 
20 0EXI*l.E-8 
EX=1 .E-10 
DO 25 K=1 ,50 
FXX=FK3(EX) 

FDX=FK3(EX*DEXI) 

R*FXX-W3F 

DRDX= (FDX-FXX ) /DEX I 
0EXI=-R/DRDX 

IF(ABS(R) .LT.l.E-6) GO TO 28 
25 EX=EX*OEXI 
WRITE (NW , 1 0 1 ) 

WR I TE ( NW , 1 00 ) EX,OEXI»R,FXX,FDX 
CALL EXIT 

28 HINIT=EX 
GO TO 40 

30 CALL TLU(W3F,HINIT,W3FTAB,DISPW3»NOW3> 

40 RETURN 

101 FORMAT (/5X*20HITERATIONS EXCEEDED ) 

100 FORMAT ( /5X , 15HX ,0X ,R ,FXX ,FDX / 5E12.4) 

END 
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SUBROUTINE NLINP(JOP) 

COMMON TPRINT »TMAX» IPSTEP.NCYCLS, MOT ION. TITLE (15) .Y8A,YBINT(200) 
COMMON NR.NW.NCASE.MODEL.LOADF , IDAMP. IFOFT * ICC* 

1 Ml .M2.M3.K1 ,C1 .K2.GL.FA « ALOAD. ADAMP.BLOAD.BDAMP, 

2CL0AD.C0AMP.DL0AD.DDAMP.HINIT , IFM7. AMPLD. FREQ .PEAKS .POURS .PEAKH. 
3PDURH.NINCP.TINCP.TP (200) ,PUVAL<200) ,PULDOT(200) »TINIT * Y1 IN* Y2IN» 
4Y3IN»V1IN»V2IN»V3IN»TIME(6000)«Y1»Y2»Y3»V1»V2»V3» 

SNOUM , DOUM (6 ) .OVUM (6) » 

5MAXINC.H.HM.M.E. AKO.NE.TTDUM. ELIM.INDX. YB» YBDOT « 

60MEGA.WH0.WY3Y2H.BY3Y2H 

COMMON FILMT (6000) .Y2MY1 (6000 ) .VAPEAK (6000 ) . YBPLOT (6000) 

COMMON TZ.ITIME.Y8PREV 

COMMON NONLIN, ITYP1.ITYP2.ITYP3.TA81 .TAB2.TAB3.C2.C3.K3. EM 

10ISPM1 (300) , DI SPW2 ( 3 0 0 ) «OISPW3(300> ,W1FTAB<300> .W2FTAB (300) » EM 

2W3FTABOOO) .DISPB1 (300) *DISPB2 ( 300 ) • DISPB3 (300) .B1FTAB (300) * EM 

3B2FT AB ( 300 ) t B3FT AB (300 ) ,NOWl .NOW2.NOW3.NOB1 .N0B2.N0B3 EM 

REAL M1.M2.M3.C1.K1.K2.K3 EM 

ITYP1 * 1 2 3 

W1 AND B1 = CONSTANTS (INPUT) USER FUNC. SUBPROGRAMS INPUT TABLES 
ITYP2 * 1 2 3 

W2 AND B2 * CONSTANTS (INPUT) USER FUNC. SUBPROGRAMS INPUT TABLES 
ITYP3 * 1 2 3 

W3 AND 83 = CONSTANTS (INPUT) USER FUNC. SUBPROGRAMS INPUT TABLES 

TAB1.TAB2.TA63 INPUT REQUIRED IF ITYP1 . ITYP2. ITYP3 * 3. RESPECT. 
TAB1.TAB2.TAB3 * 0.0 IF TABLE INCREMENT IRREGULAR 

TAB1 .TAB2.TAB3 =* DINC. SPECIFIES TABLE INCREMENT 
DISPW1.DISPW2.DISPM3 DISPLACE. ARRAYS FOR W1.W2.W3 TABLE INPUT 
W1FTAB.W2FTAB.W3FTAB * W1.W2.W3 VALUE ARRAYS TABLE INPUT 

DISPB1 .DISPB2.DISP03 DISPLACE. ARRAYS FOR B1.B2.B3 TABLE INPUT 
B1FTAB.B2FTAB.B3FTAB * W1.W2.W3 VALUE ARRAYS TABLE INPUT 

NOW1.NOW2.NOW3 = NUMBER OF Wl.W2.W3 VALUES TABLE INPUT 

N081.NQB2.N0B3 = NUMBER OF Bl. 82. B3 VALUES TABLE INPUT 

GO TO (10.20.200) .JOP 
10 WRITE (NW.1536) 

WRITE (NW. 1540) Ml. M2. M3 
IF ( ITYP1 »EQ. 1 ) WRITE (NW.1537) Kl.Cl 
IF ( ITYP2.EQ* 1 ) WRITE (NW. 1538) K2.C2 
IF ( ITYP3.EQ. 1 ) WRITE (NW. 1539) K3.C3 
RETURN 

20 WRITE(NW.1531) 

WRITE (NW. 1547) 

WRITE (NW. 1541 ) 

IF(ITYPl.EQ.l) WRITE (NW.1544) 

IF ( ITYP1 .EQ.2) WRITE (NW . 1545) 

IF ( ITYP1 .EQ. 3) WRITE (NW, 1546) 

WRITE (NW, 1542) 

IF ( ITYP2.EQ. 1 ) WRITE (NW .1544) 

IF ( ITYP2.EQ.2) WRITE (NW, 1545) 

IF ( I TYP2.EQ.3) WRI TE (NW, 1546 ) 

WRI TE (NW. 1543) 

IF ( ITYP3.EQ. I ) WRITE (NW ,1544 ) 

IF ( ITYP3.EQ.2) WRITE(NW,1S45) 

IF ( ITYP3.EQ.3) WR I TE (NW ♦ 1546) 

FUNCTION INPUT- SUBROUTINE MUST BE COMPILEO BY USER AS 
FK1 AND FC1 OF (Yl-YB) ANO (V 1D0T-YB00T) 

FK2 AND FC2 OF (Y2-Y1) ANO (Y200T-Y1D0T) 

FK3 AND FC3 OF (Y3-Y2) ANO ( Y3D0T-Y2D0T) 

TABLE INPUT- FOLLOWS FUNCTION INPUT TEXT CARDS (ALL FORMATS 8E10.4) 

FIRST CARD CONTAINS INITIAL VALUE OF DISPLACEMENT FOR W1F.W2F.W3F 
IF INITIAL VALUE «0.0» INCREMENT IN DISP. TABLE VARIES 
IF INITIAL VALUE -NON-ZERO, INCREMENT SPECIFIED BY TAB1, 

TAB2 OR TAB3 CORRESPONDING TO W1F.W2F ♦ OR W3F 

1ST SET OF CAROS GIVES DISPLACEMENT VALUES, SUPPLY THIS SET 
ONLY IF INCREMENT IS 0.0, BLANK CARO ENDS THIS SET. 

LAST VALUE OF A SET MUST NOT BE ZERO 
2ND SET OF CARDS CONTAINS W-VALUES - END ON BLANK CARD 
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NEXT CARD CONTAINS INITIAL DISPLACEMENT FOR BIF »B2F OR B3F 
(SAME RESTRICTIONS AS FIRST CARD) 

3RD SET OF CARDS CONTAINS B-VALUES - END ON BLANK CARD 

114 1F(ITYPI.NE.3> 60 TO 115 
WRITE (NW» 1557) 

WRITE! NW ,1558) 

WRITE (NW. 1548) 

WRITE (NW* 1549) 

-WRITE (NW* 1553) 

CALL TABIN(DISPW1,W1FTAB,N0W1»TAB1»3) 

IF <N0W1 ,6T .100) WRITE (NW* 1531 ) 

WRITE (NW* 1561 > 

WRITE (NW* 1558) 

WRITE (NW* 1552) 

WRITE (NW, 1549) 

WRITE (NW* 1554) 

CALL TABIN(DISPB1*81FTAB.N0B1*TAB1*3> 

115 IF(ITYP2.NE.3> 60 TO 116 
WRITE (Nw, 1557) 

WRITE (NW* 1559) 

WRITE (NW. 1548) 

WRITE (NW. 1550) 

WRITE (NW, 1553) 

CALL TAB IN (DISPW2.W2FTAB.N0W2* T AB2, 3) 

IF (NOW2.6T .100) WRITE (NW, 1531 ) 

WRITE (NW, 1561) 

WRITE (NW, 1559) 

WRITE (NW.1552) 

WRITE (NW, 1550) 

WRITE (NW, 1554) 

CALL TABIN (DISP82»B2FTA8»N0B2»TAB2»3) 

116 IF ( I TYP3.NE ,3) 60 TO 117 
WRITE (NW, 1557) 

WRI TE (NW , 1560 ) 

WRITE (NW , 1548) 

WRITE (NW, 1551 ) 

WRITE (Nw, 1553) 

CALL TABIN (DISPW3.W3FT AB»N0W3»TAB3»3) 

IF (NOW3.6T.100) WRITE (NW, 1531 ) 

WRITE (NW, 1561 ) 

WRITE (NW, 1560 ) 

WRITE (NW, 1552) 

WRITE (NW, 1551 ) 

WRITE (NW, 1554) 

CALL TABIN(0ISPB3»B3FTAB»N0B3»TAB3,3) 

117 RETURN 

200 IF ( ITYP1 .NE.3) 60 TO 210 

CALL TABIN (OISPW1 .W1FTAB.NOW1 , TAB1 , 1 ) 

CALL TABIN(DISPB1,B1FTAB,N0B1,TAB1,2) 

210 IF ( ITYP2.NE,3) 60 TO 220 

CALL TA8IN(0ISPW2,W2FTAB,N0W2,TAB2,1) 

CALL TABIN (DISPB2.B2FT AB ,N0B2 , TAB2.2 ) 

220 IF(ITYP3.NE.3) GO TO 117 

CALL TABIN (DISPW3.W3FTAB.N0W3.TAB3, 1 > 

CALL TABIN (DISPB3,B3FTAB,N0B3,TAB3,2) 

60 TO 117 
1531 FORMAT (/ 1H1) 

1536 FORMAT ( 10X .55HPARAMETERS OF THE SYSTEM ON RI6ID MOUNTS ARE AS FOLL 

10WS//10X, 1 10H Ml M2 M3 K1 

2 K2 K3 Cl C2 C3 / 

36X , 3 (8X.4H (LB) ) , 2X ,3 ( 5X , 7H (LB/IN) ) »2X , 3 ( 12H (LB-SEC/IN)) ) 

1537 FORMAT (1H+.44X, 612.4, 24X.612.4) 

1538 FORMAT (1H*,56X,612.4,24X,G12.4) 

1539 FORMAT (1H*,68X, 612.4, 24X, 612,4) 

1540 FORMAT ( 1H .10X.3G12.4) 



1541 FORMAT (/10X»65HTHE STIFFNESS AND DAMPING PROPERTIES ARE Sr 


IAS FOLLOWS / 

1 20X * 10HK1 AND Cl ) 

1542 FORMAT (20X«10HK2 AND C2 ) 

1543 FORMAT (20X»10HK3 AND C3 ) 

1544 FORMAT < 1 H* ♦ 34X ♦ 25HC0NSTANT ) 

1545 FORMAT (1H*»34X» 25HUSER SUPPLIED FUNCTION ) 

1546 FORMAT ( 1H* ♦ 34X « 25HTABLES > 

1547 FORMAT ( 1H 119<1H»)) 

1548 FORMAT ( 10X *4 (28H RELATIVE FORCE >/ 

2 10X *4 (28H DISPLACEMENT BETWEEN ) / 

3 10X,4(28H BETWEEN ) ) 


1549 FORMAT (10X«8(14H Ml AND BASE > ) 

1550 FORMAT (10X*8(14H M2 AND Ml > ) 

1551 FORMAT <10X»8(14H M3 AND M2 ) ) 

1552 FORMAT ( 10X»4(28H^ RELATIVE DAMPING 


2 10X »4 (28H DISPLACEMENT COEFFICIENT 

3 10X«4 <28H BETWEEN BETWEEN 


1553 F ORMAT (10X»4(28H (IN) 

1554 FORMAT ( 1 OX *4 ( 28H (IN) 

1555 FORMAT (/1H1 ) 


(LB) )/) 

(LB-IN/SEC) )/) 


)/ 
)/ 
) ) 


1556 FORMAT <//) 

1557 FORMAT (/1H1»23X»70HTHE NONLINEAR LOAD VALUES BETWEEN 

1 ARE AS FOLLOWS ) 

1558 FORMAT < 1H* »58X » 11HM1 AND BASE//) 

1559 FORMAT (1H*»58X* 11H M2 AND Ml //) 

1560 FORMAT (1H-»»58X» 11H M3 AND M2 //) 

1561 FORMAT(//10X. 80HTHE NONLINEAR DAMPING COEFFICIENT VALUES BETWEE 

IN ARE AS FOLLOWS > 

END 
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SUBROUTINE TA8IN(0K,AK.N0VAL*0INC* J8) 

PURPOSE - READ IN TABLE VALUES - ARRAYS DK VS. AK - EACH FOLLOWED BY 
A BLANK CARD (ALL FORMATS 8E10.4) 

FIRST CARD OF DK SET CONTAINS INITIAL VALUE* ONLY IF INTERVAL 
(SPECIFIED BY DINC) IS NOT ZERO. AK VALUES SET FOLLOWS. 
FIRST AND SUCCEEDING CARDS CONTAIN OK VALUES* ONLY IF INTERVAL 
(SPECIFIED BY DINC) IS ZERO. BLANK CARD. AK VALUES SET* 

AND BLANK CARD FOLLOW. 

JB*1 SPECIFIES W VALUES 
JB=2 SPECIFIES B VALUES 
DIMENSION OK ( 1 ) * AK ( 1 ) 

DATA NR.NW/5.6/ 

LOGICAL IOP 
IOP=DINC.NE.O.O 
GO TO ( 1 * 1*200 ) « JS 

1 IF (IOP) GO TO 20 

C INTERVAL 3 0.0* READ DK VALUES SET 

2 00 10 J*1 *280*8 
MKsJ*7 

READ (NR* 100) (OK(K)« K=J.MK> 

DO 5 KsJ.MK 
IF (OK (K) ) 10.5.10 
5 CONTINUE 
GO TO 25 
10 CONTINUE 

15 WRITE (NW* 101 ) DK(MK) ,AK(MK> 

CALL EXIT 

20 GO TO (21*25.200) *JB 

21 READ (NR* 1 00) DINT 
25 DO 50 J=1 .280 . 8 

ICNT=0 

MK=J«7 

READ (NR* 1 00 ) ( AK ( K ) *K= J.MK ) 

DO 40 K=J.MK , 

IF (IOP) OK (KF=OINT*FLOAT(K-l)«DINC 
IF(AK(K) .EO.O.O) GO TO 30 
LAST =K 
GO TO 40 
30 I CNT=ICNT ♦ 1 
40 CONTINUE 

IFUCNT.EQ.8) GO TO 60 
50 CONTINUE 
GO TO 15 
60 NOVAL=LAST 

IF (OK (NOVAL) .NE.0.0) GO TO 350 
70 WRITE (NW. 1 02 ) 

C WRITE TABLE VALUES - FINO MAX. NO. PER COLUMN 
200 NOCOL=FLOAT (NOVAL) /4.*.5 
DO 300 Jl*l.NOCOL 
J2=J1*N0C0L 

IF(J2.GT. NOVAL) GO TO 210 
J3=J2*NOCOL 

IF(J3.GT. NOVAL) GO TO 220 
J4=J3*N0C0L 

IF(J4.GT. NOVAL) GO TO 230 

WRI TE (NW * 1 03 ) 0K(J1) .AK (Jl) *OK( J2> *AK(J2) ,DK(J3> *AK(J3> ♦ 

1 OK ( J4) * AK ( J4) 

GO TO 300 

210 WRITE (NW * 1 03 ) OK ( Jl ) . AK ( Jl ) 

GO TO 300 

220 WRITE (NW. 103) OK ( Jl ) . AK ( Jl ) . DK ( J2 ) . AK ( J2 ) 

GO TO 300 

230 WRITE (NW * 1 03 ) OK ( Jl ) * AK < Jl ) .OK ( J2 ) . AK ( J2 ) *DK < J3> * AK ( J3) 

300 CONTINUE 

WRITE (NW * 1 04) 

350 RETURN 

100 FORMAT (8E 1 0 .4) 

101 FORMAT (/5X.37HNUM8ER OF VALUES IN TABLE EXCEEDS 280/ 

1 15H OISP = .E12.4.15H W OR B « ♦ E12.4) 

102 FORMAT ( /5X . 75HNUMBEP OF VALUES IN DISPLACEMENT TABLE IS LESS THAN 

1 NO. OF W OR B VALUES / 

2 5X * 35H0R LAST DISPLACEMENT VALUE IS ZERO ) 

103 FORMAT (8X.8F14.5) 

104 FORMAT (//) 

END 



SUBROUTINE SOLVE 
REAL Ml.M2.M3.Cl.Kl.K2 

COMMON TPRINT »TMAX» IPSTEP.NCYCLS .MOT ION.T ITLE (15) . YBA. YBINT (200 > 
COMMON NR .NW.NCASE .MODEL .LOAOF * I DAMP* IFOFT.ICC. 

1 M1.M2.M3.K1.C1.K2.GL.FA.ALOAD.ADAMP.BLOAD.BDAMP. 

2CLOAD.CDAMP.DLOAD. DOAMP, HIN IT. IFM7.AMPLD. FREQ .PEAKS. POURS. PEAKH. 
3PDURH*NINCP»TINCP«TP (200 ) .PUVAL (200) .PULDOT (200) *TINIT. Y1 IN.Y2IN. 
4Y3IN*V1IN.V2IN*V3IN*TIME(6000) . Y 1 . Y2. Y3 , VI . V2. V3.N. VEC (6) .DVEC(6) » 
5MAXINC.H.HM.M.E.AK0.NE.T * ELIM.INDX* YB* YBDOT » 

60MEGA.WH0.WY3Y2H.BY3Y2N 

COMMON FILMT (6000) *Y2MY1 (6000) « VAPEAK (6000) .YBPLOT (6000) 

COMMON TZ.ITIME.Y8PREV 

C THIS SUBROUTINE SOLVES THE EQUATIONS OF MOTION. WHICH WILL BE DEFINED 
C IN SUBROUTINE DIFFEQ 
C 

C INITIALIZE THE VECTORS 

C INITIALIZE STORAGE FOR MAX AND MIN VALUES 
ITIME=1 
IVAL=1 
IMAXIM*0 
IFM7* IFOFT-7 
ISTEAD=1 
WRITE (NW. 1 111) 

IF(MODEL.EQ.3) GO TO 10 
WRITE (NW. 1 1 12) 

N*6 

VEC ( 1 ) = V1 IN 
VEC (2) =V2 IN 
VEC (3) *V3IN 
VEC ( A) =Y1 IN 
VEC (S) =Y2IN 
VEC (6)=Y3IN 
GO TO 20 

10 WRITE (NW.1113) 

N*2 

VEC ( 1 ) =V3IN 
VEC (2) =Y3 IN 
20 T*TINIT 

C SAVE VALUE OF M= NO. OF INTEGRATIONS BEFORE STEP SIZE IS DOUBLED 
MOLD =M 

C INITIALIZE STORAGE FOR T- PRINT VALUES 
TPRVAL=T* TPRINT 
KELP=1 

DO 200 KOUNT=l .MAX INC 
C SET FLAG OFF FOR PRINT 
IPRINT=2 

C INITIALIZE M AND NE 
M*MOLO 

IF (KOUNT .EQ. 1) NE«0 
IF (KOUNT .NE. 1 ) NE=1 
TA0INC=T*2.*H 

IF (TADINC.LT .TPRVAL) GO TO 1200 
TOINC*T*H 

IF(TOINC.LT. TPRVAL) GO TO 1190 
C T* OT WILL EXCEED PRINT VALUE 
C SAVE OLD DT VALUE. I.E. SAVE H 
HOLD=H 
H*TPRVAL -T 
C SAVE NEW DT VALUE 
HNEW=H 

c Turn print flag on 
IPRINT=1 

C SET M=10.000 . SO THAT DT WILL NOT BE DOUBLED 

1190 M=10000 



C RONKU INTEGRATION 
1200 TZ*T 

CALL RONKU <T,VEC*DVEC,H,HM.N,NE.M.E.AKO) 

YBPREV=YB 

C TEST PRINT ELAG ON* l=ON, 2=OFF 
IF ( IPRINT .E0.2) GO TO 1536 
C TEST OT =N£W OT 

IF (H-HNEW) 1536.1210*1536 
C RESET OT TO OLD OT 
1210 H*HOLO 

C INCREASE FOR NEXT PRINT VALUE 
TPRVAL=T*TPRINT 

C FORM AN INDEX TO TAG NO. OF ITERATIONS 
INDX=KELP 

IF (MOTION. EQ.O) YBPLOT (KELP) =YB 
IF (MOTION. £0.1) YBPLOT (KELP) *YBA 
TIME (KELP ) ~T 
MAPGE* (KELP/45) *45-K£LP 
IF(MAPGE.ECl.O) WRITE(NW»I118) 

IF (MODEL. E0i3) GO TO 1490 
Y2MY1 (K£LP)=V£C(4)-VEC(5> 

FILMT (KELP) =HINIT* VEC (6 ) -VEC (5 ) 

Y1MYB-V£C(4)-YB 

WRITE (NW. 2222) T *F ILMT (KELP) * (VEC (10) .10*4.6) . (VEC (10) .10*1.3) . 

1Y2MY1 (KELP) .YB.Y1MYB 
GO TO 1530 

1490 FILMT(KELP)=HINIT*VEC<2)-YB 

WRITE (NW, 2222) T.F ILMT (KELP) , VEC (2) , VEC < 1 ) .Y8.YBA 

1530 IF(F1LMT(KELP).LT.0.0) GO TO 1531 
GO TO (400 *S00 *600 .700) *IFM7 

1531 IF ( IFOFT .EQ.8) GO TO 400 
WRITE (NW, 1115) 

1115 FORMAT (/5X.47HRUN COMPLETE AT THIS POINT. ROTOR HAS BOTTOMED.) 
GO TO 666 

400 IF (KELP.LT .3) GO TO 1535 
D1=FILMT (KELP) 

D2=FILMT (KELP-1) 

D3=FILMT (KELP-2) 

IF (01 .LT .02. AN0.02.GT .03) GO TO 410 
IF(D1. GT.D2.AN0.02.LT. 03) GO TO 420 
GO TO 1535 
410 IMAXIM = 1 
GO TO 425 
420 IMAXIM=2 
425 VAPEAK(IVAL)=D2 
IVAL»IVAL*1 
C TEST FOR MIN OR MAX 

GO TO (1535.430) *IMAXIM 
C TEST FOR STEADY-STATE 

430 IF (ISTEAD.NE.l) GO TO 661 
IF(IVAL.LE.S) GO TO 1535 

ERRC= (VAPEAK ( I VAL-3) -VAPEAK ( I VAL-5) ) /VAPEAK ( IVAL-3) 

IF ( ABS (ERRC) .GT. • 01 ) GO TO 1535 
ISTEAO* 2 
GO TO 1535 
C IFOFT = 9 

500 IF (T.LT. POURS) GO TO 1535 
510 IF (KELP.LT .3) GO TO 1535 
D1=FILMT (KELP) 

02 =F ILMT (KELP-1 ) 

03=FILMT (KELP-2) 

IF (D1 .LT .02. AND .02. GT .03) GO TO 515 
IF(01. GT.D2.AND.D2.lt. 03) GO TO 515 
GO TO 1535 
515 I MAX IM=IMAX IM* 1 

IF(NCYCLS.EQ.O) GO TO 520 

IF ( IMAXIM.GT • (2*NCYCLS) ) GO TO 666 

GO TO 1535 


PAUL457 

PAUL457 



520 IF(IMAXIM.GE.2> GO TO 666 
GO TO 1535 
C IFOFT = 10 

600 IF(T.LT.PDURH) GO TO 1535 
GO TO 510 
700 ANINCP=NINCP 

IF(T.LT.ANINCP*TINCP> GO TO 1535 
GO TO 510 

1535 KELP=KELP*1 

1536 IF(T.GT.TMAX) GO TO 660 
200 CONTINUE 

WRITE (NW» 1 1 14) MAXINC 
GO TO 666 

C MAKE A HEADING AND PRINT RESULTS 

1111 FORMAT (1H1*19X*43H 000 U U TTTTT PPPP U U TTTTT / 

1 20X* 43H OOUU T PPUU T / 

2 20X, 43H OOUU T PPPP U U T / 

3 20X* 43H OOUU T P U U T / 

4 20X* 43H 000 UUU T P UUU T ///✓ 

5) 

1112 F0RMATU32H TIME FILM DISPLACEMENT DISPLACEMENT D1SPLACPAUL4S7 

1EMENT VELOCITY VELOCITY VELOCITY RELATIVE FORCING PA0L457 
1REL. DISP. / PAUL457 

2 132H THICKNESS OF MASS 1 OF MASS 2 OF R0TPAUL457 

30R OF MASS 1 OF MASS 2 OF ROTOR DISP. BET. FUNCTION PAUL 457 

3BET Ml ♦BASE / PAUL457 

4 132H (SEC) (INCHES) (INCHES) (INCHES) ( INCHEPAUL457 

5S) (IN/SEC) (IN/SEC) (IN/SEC) MASS2 ♦MASSl (INCHES) PAUL457 

5 (INCHES) /) PAUL 457 

1113 FORMA f (95H0 TIME FILM DISPLACEMENT VELOCITY FORCING 

1 FORCING / 

2 75H THICKNESS OF ROTOR OF ROTOR FUNCTION 

3 FUNCTION / 

4 75H (SEC) (INCHES) (INCHES) (IN/SEC) (INCHES) 

5 (G*S) /) 

1114 FORMAT ( /5X » 38HMAX I MUM NO. OF TIME STEPS HAS EXCEEDED* 15) 

2222 FORMAT (1X*F7.4*E11.4*3E13.4*6E12.4) PAUL457 

1116 FORMAT (/5X.42HSTEADY-STATE CRITERION HAS BEEN SATISFIED.) 

1117 FORMAT (/5X,33HSPECIFIED TIME HAS BEEN ATTAINED.) 

1118 FORMAT ( 1H1 ) 

660 WRITE <NW* 1 1 17) 

GO TO 666 

661 WRITE (NW» 1116) 

666 IF ( ICC.EG . 12) CALL CALCOM 

RETURN 
END 
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SUBROUTINE SIM1NI (SI *FX* A*E*REL*MAXIT »FK*MRET) 
EXTERNAL FX 
LOGICAL REL 
DIMENSION A (2) 

AA=A(1) 

BB=A (2) 

H = (BB-AA) / 6.0 
XMID = <AA*6B> * .5 
Q = 2. * FX(XMIO»FK) 

SI = FX ( AA »FK> ♦ Q ♦ FX (BB*FK) 

PR = H* (S 1 >Q ) 

IF(MAXIT.EQ.I) GO TO 150 
DO 100 IT*2*MAXIT 
ISTOP = 2** IT - 1 
H* .5*H 
S*o. 

DO 80 M=1 « ISTOP»2 
X=AA>3.0*M*H 
80 S*S*FX(XtFK) 

SI=H*(A.*S ♦SI) 

DIFF=ABS (SI-PR) 

IF (REL) DIFF=DIFF/ABS(SI) 

IF(DIFF.LE.E) GO TO 160 
PR=SI 
S\*Sl*S*S 
100 CONTINUE 
RETURN 
150 SI=PR 
160 MRET=0 
RETURN 
END 


SUBROUTINE TLU( A.B.C.D.N) 

LINEAR INTERPOLATION ROUTINE 
A= INDEPENDENT VARIABLE 
B* DEPENDENT VARIABLE (ANSWER) 

C= INDEPENDENT TABLE 
D* DEPENDENT TABLE 
N= NUMBER OF POINTS IN TABLE 

INDEPENDENT TABLE MUST BE SORTEO. EITHER ASCENDING OR DESCENDING 

dimension cm.om 

IF (N-l ) 1 .2*3 

1 B=0. 

GO TO 100 

2 B*D ( 1 ) 

GO TO 100 

3 ML=1 
MU=N 

8 IF (MU-ML-1 ) 15.15.9 

9 M* (MU.ML) /2 


TLU 1 
TLU 2 
TLU 0063 
TLU 0004 
TLU 0005 
TLU 0006 
TLU 0007 
TLU 0068 
TLU 0009 
TLU 0010 
TLU 0011 
TLU 0012 
TLU 0013 
TLU 0014 
TLU 0015 
TLU 0016 
TLU 0017 
TLU 0018 


IF(C<1)-C<2)) 11.2.10 TLU 0019 

10 IF(C(M)-A) 13.12.14 TLU 0020 

11 IF(A-C(M) ) 13.12.14 TLU 0021 

12 B*D(M) TLU 0022 

GO TO 100 TLU 0023 

13 MU=M TLU 0024 

GO TO 8 TLU 0025 

14 ML=M TLU 0026 

GO TO 8 TLU 0027 

15 B*D (ML) ♦ (O (MU) -D (ML ) ) * ( ( A-C (ML) ) / ( C (MU> -C (ML) ) ) TLU 0028 

100 RETURN TLU 0029 

END TLU 0030 


FUNCTION FX(X.FK) 

COMMON TPRINT.TMAX.IPSTEP.NCYCLS. MOT ION. TITLE (15) .YBA. YBINT (200) 
COMMON NR .NW.NCASE. MODEL. LOAOF . IDAMP, IFOFT. ICC. 

1 M1.M2.M3.K1.C1 .K2.GL.FA. ALOAD. ADAMP.BLOAO.BDAMP. 

2CL0A0.CDAMP.DL0AD.DDAMP.HINIT. IFM7.AMPLD. FREQ. PEAKS. POURS. PEAKH. 
3PDURH.NINCP .TINCP.TP(200) »PUV AL ( 200 ) .PULDOT ( 200 ) . T INIT ♦ Y 1 IN. Y2IN. 
4Y3IN.V1IN.V2IN.V3IN, TIME (6000) . Y 1 . Y2 . Y3 . VI . V2 . V3.N. VEC (6) .DVEC(6>* 
5MAXINC.H.HM.M. E . AKO.NE. T . ELIM.INDX. YB.YBDOT. 

60MEGA.WH0.WY3Y2H.BY3Y2H 

COMMON FILMT (6000) * Y2MY 1 (6000) .V APEAK (6000) .YBPLOT (6000) 

REAL M1.M2.M3.C1.K1.K2 
K*FK 

NP1»NINCP«1 
GO TO (1.2) .K 

1 CALL TLU (X. FI. TP. YBINT ,NP1) 

FX=F1 

RETURN 

2 CALL TLU(X.F2.TP.PUVAL.NP1) 

FX=F2 

RETURN 

END 
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SUBROUTINE FORMT 
DIMENSION A (2) 

COMMON TPRINT »TMAX» IPSTEP »NCYCLS»MOT I ON.TI TLE (15) * YBA* YBINT (200) 
COMMON NR »NW,NC ASE, MODEL »LOADF , I DAMP* IFOFT * ICC* 

1 M1*M2,M3*K1,C1 *K2»GL»FA, ALOAD » AD AMP .BLOAD »BD AMP, 

2CL0AD,CDAMP»DL0AD»DDAMP»HINIT * IF M7*AMPLD» FREQ .PEAKS » POURS, PE AKH, 
3PDURH,NINCP.TINCP«TP(200> ,PUVAL(200),PULDOT(200) »TINIT»Y1IN*Y2IN» 
4Y3IN,V1IN,V2IN,V3IN,TIME(6000> ,Y1 ,Y2»Y3,V1 ,V2,V3.N,VEC (6) *DVEC(6>» 
5MAXINC»H»HM*M,£»AKO»NE,T » ELIM.INDX, YB, YBDOT » 

6OMEGA,WH0.WY3Y2H.BY3Y2H 

COMMON FILMT (6000) ,Y2MY1 (6000) .VAPEAK (6000) * YBPLOT (6000) 

DATA MAXIT,ERR/100».01/ 

EXTERNAL FX 

REAL M1»M2,M3»C1»K1,K2 
NP1»NINCP *1 
YBINT ( 1 )«0.0 
DO 10 I*2»NP1 
A(1)*TP(1-1) 

A (2) *TP ( I ) 

MRET=5 

CALL SIM1NI (TEMP.FX, A.ERR.O »MAXIT ,2. »MRET) 

IF (MRET .E0.5) 60 TO 5 
GO TO 10 

S WRITE (NW» 102) MAXIT.ERR 
WRITE (NW» 101 ) 

10 YBINT (I)* YBINT ( I — 1 ) *TEMP 
RETURN 

101 FORMAT (5X.49HF0R FORMATION OF NEW TABLE FOR THE INTEGRAL OF YB) 

102 FORMAT (1H0.29HMAXIMUM NUMBER OF ITERATIONS, 13, 2SH WAS REACHED BEFO 
IRE EPS *,E11.4) 

END 


SUBROUTINE FILM 

C THIS SUBR. IS CALLED BY SUBR. #INPUT# WHICH IS PART OF F SHAKE# 

C IT CALCULATES THE EQUILIBRIUM GAS FILM THICKNESS 

COMMON TPRINT, TMAX , IPSTEP,NCYCLS, MOT ION, TITLE (15) .YBA, YBINT (200) 
COMMON NR, NW.NCASE, MODEL, LOADF.IDAMP, IFOFT, ICC, 

1 Ml, M2, M3, Kl, Cl *K2»GL»FA» ALOAD. AOAMP.BLOAD.BDAMP, 

2CL0A0*CDAMP,DL0AD»0DAMP,HINIT , IFM7 , AMPLD, FREQ, PEAKS, POURS, PEAKH, 
3PDURH»NINCP,TINCP*TP (200) ,PUVAL(200) ,PULDOT(200) ,T INIT , Y1 IN, Y2IN, 
AY3IN. V1IN.V2IN.V3IN, TIME (6000), Y1,Y2,Y3, VI » V2» V3»N» VEC (6) ,DVEC(6> , 
5MAXINC.H,HM.M,E,AK0,NE,T, ELIM.INDX, YB, YBDOT , 

6OMEGA,WH0,WY3Y2H,BY3Y2H 

COMMON FILMT (6000) ,Y2MY1 ( 6000 ), VAPEAK (6000 ) , YBPLOT (6000 ) 

REAL Ml *M2«M3,C1 ,K1 ,K2 
W*-FA*M3*GL 
IF (LOADF-4) 11,11,21 
11 BH=ALOG(W)-ALOG( ALOAD) 

BxBLOAD 

IF ( ABS (BLOAD) ,LT .. 0000 1 . AND .BLOAD.LT .0 . 0 ) B*-. 00001 
IF (ABS(BLOAD) .LT. .00001 .AND. BLOAD. GT. 0.0) B*. 00001 

HINIT=BH/B 
RETURN 

21 CABIN =W/CLOAD 
D=DLOAD 

IF (ABS (DLOAD) .LT. . 00001 . AND.DLOAO.GT . 0 .0 ) 0*. 00001 

IF ( ABS (OLOAD) .LT. .00001 .AND. DLOAD. LT. 0.0) D»-. 00001 
ONENT = AL0G (CABIN) /D 
IF (ABS(ONENT) .GT.88.0) GO TO 30 
HINIT“EXP (ONENT) 

RETURN 

30 WRITE (NW, 1 00 ) DLOAD 
CALL EXIT 

100 FORMAT (25HODLOAD IS TOO BIG. DL0AD»,E15.5> 

END 



SUBROUTINE RONKU (X. Y ,DY .H.HH.N.NE .M.E. AKO) 

C REVISEO 3/30/64 FOR NORMAL I ZEO ERROR 

DIMENSION Y(6l,DY(61»Yl(61»YD(61.YP(6.5I.QP(6.51,A(41.B<4),C(41 
30 IF(NE) 1.1.2 > 

1 A (1 ) =0.5 

A (21 = .2928932 
A (3) = 1.7071068 

A(4)=l. 0/6.0 
8(11=2.0 
8(21=1.0 
8(31=1.0 
8(41=2.0 
C ( 1 1 =0. 5 
C (21 =A (21 
C ( 31 =A ( 31 
C (41 =0 .5 
IF (NE1 32.11.2 

11 DO 3 1=1. N 
YP ( I . 1 1 =Y ( 1 1 

3 OP(I. 11=0.0 
32 K1=0 

2 X1 = X 
HH=H 
K=1 

12 X50 = XI 
DO 4 J=2»5 
DO 17 1=1, N 

17 YO ( 1 1 =YP ( I , J-l 1 

CALL DIFEO<N,Xl,YOiOY) 

IF (J -31 1S1.153.1S2 

151 X1=X1.0.S»HH 
GO TO 153 

152 X1=X1.0.5»HH 

153 CONTINUE 
DO 5 1=1, N 

TERM=A ( J-l 1 » (OY ( 1 1 -B ( J-l 1 »QP ( I .J-l 1 1 
YP ( 1 , J1 =YP ( I , J-l 1 *HM»TERM 

5 OP ( I , J1 =OP ( I , J- 1 1 *3. 0»TERM-C ( J-l 1 »OY ( I 

4 CONTINUE 
XI =X50 

IF (K-21 6.7,8 

6 DO 61 J=1,N 
Y1 ( J1 =YP { J.51 
YP ( J, 1 1 =Y ( J1 

61 QP(J, 11=0.0 
K*K ♦ 1 
HH=H/2 . 0 
GO TO 12 

7 K=K ♦ 1 
X1=X1.HM 

DO 71 J=1 ,N 
OP ( J. 1 1 =OP (J.51 
71 YP(J,1)=YP(J,5> 

GO TO 12 

8 DO 81 J=1,N 

T1=SQRT ( Y 1 (Ji«»2*YP(J,51«»21 
IF(Tl) 18.81,18 

18 TEST=ABS ( Y 1 (J1-YP(J.51 1/T1 
IF (TEST-E1 81,81.9 

81 CONTINUE 
K 1 =K1 + 1 
AKO=TEST 

IF (Kl-Ml 10.13,13 

9 K1 = 0 

IF (ABS (M/2.01 -ASS (HM1H4.15.15 

14 AKO=TEST 
GO TO 10 

15 H=H/2.0 

DO 16 J=1»N 

16 YP(J,11=Y ( J 1 
GO TO 2 

13 K 1 =0 
H=H*H 

10 X=X1 *HH 
00 82 J=1,N 
0P(J.1)=QP(J»51 

YP(J.1)=YP(J,5).(YP(J,5)-Y1(J))/15.0 

82 Y ( J1 =YP ( J , 1 1 

CALL OIFEQ(N.X,Y,OY) 

RETURN 

END 


0060 
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SUBROUTINE DEQNL (VEC. DVEC) 

DIMENSION VEC (6) .OVEC (6) 

COMMON TPRINT.TMAX.IPSTEP.NCYCLS. MOT ION. TITLE (15) .YBA. Y8INT (200> 
COMMON NR.NW.NCASE.MODEL.LOADF » IDAMP* IFOFT. ICC* 

1 M1.M2.M3.K1.C1.K2.GL.FA.ALOAD.ADAMP.BLOAD.BOAMP. 

2CLOAD .CDAMP .DLOAD .DOAMP «HINI T » IFM7 . AMPLD .FREQ .PEAK 5 .POURS * PE AKH* 
3PDURH.NINCP,TINCP«TP(200> .PUVAL(200> .PUL DOT (200) . TINI T, Y1 IN. Y2IN, 
4Y3IN.V1IN.V2IN,V3IN.TIME(6000> .Y1.Y2.Y3.V1.V2.V3. 

5NDUM.ODUM (6) .OVUM (6) . 

5MAXINC.H.HM.M.E. AKO.NE.TTOUM* ELIM.INOX. YB.YBDOT. • 


6OMEGA.VH0.VY3Y2H.8Y3Y2H 

COMMON FILMT (6000 ) .Y2MY1 (6000) . V APEAK (6000 ) . YBPLOT ( 6000 ) 

COMMON TZ.ITIME.YBPREV 

COMMON N0NLIN.ITYP1.ITYP2.ITYP3.TAB1.TA82.TAB3.C2.C3.K3. EM 

1DISPW1 (300) .DISPV2(300).DISPW3(300).W1FTA8(300) * W2FT AB ( 300) « EM 

2W3FT AB ( 300 ) .OISPB1 (300) .01SPB2 ( 300 ) .DI SP33 ( 300 ) .B1FT AB ( 300 ) . EM 

3B2FT AB ( 300 ) .83FT AB ( 300 ) .NOVI .NOW2.NOW3.NOB1 .NOB2.NOB3 EM 

REAL M1.M2.M3.C1.K1.K2.K3 EM 

C INSERT COMMON CAROS « REAL CARO 
IF (MODEL. EQ.3) GO TO 200 
Y1MYB= VEC ( x. ) -Y8 
OY 1MY6= VEC ( 1 ) -YBDOT 


C Y2 -Y1 OEFINED AS X2MY1 SINCE Y2MY1 DIMENSIONED IN COMMON 
X2MY1 = VEC(5) -VEC (4) 

DY2MY1* VEC < 2 ) -VEC ( 1 ) 

Y3MY2* VEC (6 ) -VEC (5) 

HIPPY=Y3MY2*HINIT 
0Y3MY2® VEC (3 ) -VEC (2 ) 

GO TO (10.20.30) .ITYP1 

10 W1F=K1*Y1MYB 
8IF=C1 
GO TO 40 

20 W1F=FK1 (YIMYB.OYIMYB) 

B1F*FC1 (YIMYB.OYIMYB) 

GO TO 40 

30 CALL TLU(YIMYB.VIF.DISPWI.VIFTAB.NOWI) 

CALL TLU ( Y1MY8.81F .OISPB1 .B1FTAB.NOB1 ) 

V1F=-WIF 
GO TO 40 

40 GO TO (50.60.70) .ITYP2 

50 W2F=K2*X2MY1 
B2F=*C2 
GO TO 80 

60 W2F=FK2 (X2MY1.DY2MY1) 

B2F=FC2 (X2MY1 .DY2MY1 ) 

GO TO 80 

70 CALL TLU ( X2MY1 . W2F . DI SPV2 » V2F T AB. N0W2 ) 

CALL TLU( Y2MY1.B2F.DISPB2.B2FTAB.N0B2) 

W2F=-V2F 

80 IF(HIPPY.LT..0002) HIPPY=ELIM 
GO TO (90.100.110) .ITYP3 

90 V3F=K3«Y3MY2 
B3F=C3 
GO TO 120 

100 W3F=FK3(HINIT.DY3MY2)-FK3(HIPPY,DY3MY2) 

B3F =FC3 (H IPPY.DY3MY 2 ) 

GO TO 120 

110 CALL TLU(HIPPY,VHY,OISPV3.V3FTAB.NOV3) 

CALL TLU (HIPPY. B3F , DI SPB3. B3FTAB .NOB3) 

W3F=WH0-VHY 

120 IF (MODEL .EQ.3) GO TO 250 
SUM1=W1F*81F»DY1MYB 
SUM2=W2F *B2F*DY2MY1 
SUM3=W3F»B3F»DY3MY2 
DVEC ( 1 ) = ( 1 ./Ml ) * ( SUM2-SUM 1 ) 

OVEC (2) = ( 1 . /M2) * ( SUM3-SUM2 ) 

DVEC(3)=(1./M3)* (-SUM3) 

GO TO 300 

200 Y3MY2= VEC (2) -YB 
HIPPY =HIN IT ♦ Y3MY2 
DY3MY2=VEC ( 1 ) -YBDOT 
GO TO 80 

250 DVEC < 2) =VEC ( 1 ) 

OVEC (1) = (-1./M3)*(W3F*83F*(DVEC(2) -YBDOT ) ) 

300 RETURN 
END 
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APPENDIX C 


ANALYSIS OF DYNAMIC RESPONSE 
OF BRAYTON ROTATING UNIT TO AXIAL RANDOM EXCITATIONS 

The Brayton rotating unit was modeled as a three-mass system, as shown in Figure 
13. A sketch of the BRU is shown in Figure 7, in which the various masses and 
springs are identified with the model shown in Figure 13. The base of the three- 
mass system is the shake table where random excitations are transmitted to the 
BRU. k^ and c^ are respectively the stiffness and damping of the connector 
which provides the .loint between the BRU and the shake table, m^ is the mass of 
the BRU housing structure, k^ and c 2 are respectively the stiffness and damping 
of the gimbal support, k^ and c^ are the thrust bearing gas-film stiffness and 
damping respectively. Finally, m^ is the rotor mass. The equations of motion of 
the three-mass system shown in Figure 13 are: 

m^ + c^^-i^) + c 2 (x 1 -x 2 ) + k 1 (x 1 -x b ) + k 2 (x 1 -x 2 ) =0 (C.l) 

m 2 x 2 + c (xj-Xj) + c 3 (x 2 -x 3 ) + k 2 (x 2 -x 1 ) + k 3 (x 2 -x 3 > =0 (C.2) 

m 3 x 3 + c 3 (x 3 ~x 2 ) + k 3 (x 3 -x 2 ) = 0 (C.3) 

Introducing relative coordinates between mass points, 

y l = X 1 ' *b 

y 2 = x 2 - x i (c - 4) 

y 3 = x 3 - x 2 

Equations (C.l) and (C.3) become 



1*2 + c 2 y 2 - c 3 y 3 + k 2 y 2 - k 3 y 3 = 


(C. 6) 


m 3 (y 1 +y2 4 y 3 ) + C 3 y 3 + k 3 y 3 = ‘ Vb 


(C. 7) 


Dividing Equations (C. 5), (C.6) and (C.7) by m 2 and m 3 respectively, 

k, k„ 


.. . 1 . 

Xi + — y 1 


m. 


’ 2 . 
V 


m7 y 2 + mT y l 


- — y-i 


m 


- x. 


3 . 


y, + y? + — y 2 " “ y -> + ~ y ^ " " y 


m 2 .3 


Oo 


m 2 


= - x. 


C 3 k 3 

• • , M , . J • . J 

y l + y 2 + y 3 + SJ y 3 + y 3 


Subtracting Equation (C.8) from Equation (C.9), 


C i . 

u 

CM 

0 

1 

c 3 • k l 

'^2 + — 

-^ y l + 

m, 

L 1 2. 

y 2 ' ^ y 3 ‘ ^ y l + 

L 1 2j 


y 2 -^ y 3 -° 


Subtracting Equation (C.9) from Equation (C.10), 



rC rt 1 

k 0 

rk, k ] 

2 • , 

3 } 3 

. 2 

3 | 3 

+ 


y„ y„ + 


m 2 2 

.“2 “3 

7 3 m 2 J 2 

m„ 

L 2 3 J 


y, = o 


(C.8) 


(C.9) 


(c.io; 


(c.ll) 


(C.12) 


Equations (C.8), (C.ll) and (C.12) can be written in the matrix form as follows: 


10 0 


h 


c i 

m i 

' 

m l 


y i 


~ k i 

m i 

k 2 

m l 

0 


y l 


1 

0 10 

* 

y 2 

+ 

c i 

m i 

m2 

C 3 

m 2 


y 2 

+ 

m i 

X^l 

ni^ m2 

k 2 

m 2 


y 2 

■ [- -.j 

0 

0 0 1 

_ 


h 


0 

_ ^2 

11^2 


*3 


0 

^2 

m2 

1^2 m^ 


y 3 


0 
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To obtain the complex frequency response, assume 


iwt 

e 


y l 



y„ 

a 

H (w) 

2 


y 2 

y. 


H (w) 

3 


L y 3 J 


iwt 

e 


(C.14) 


(C.15) 


and substitute into Equation (C.13) 


- w [I] 


H 

(«)‘ 


H 

(u) 


H 

W) 


i' 

y l 


y l 



y l 




H 

(») 

+ iw[C] 

H 

(u) 

+ [K] 

H 

(u) 

CM 

3 

II 

0 

CM 

>> 

y 2 



y 2 




H 

(u) 


H 

(u) 


H 

(u>) 


0 

L y 3 

. 


[ y 3 

J 


. y 3 





(C. 16) 


where 


[ 1 ] 


(C.17) 


[C] 




m. 


m. 


C _2 + f2 

m l m 2 


m r 


m. 


h + h 

m 2 m 3 


(C. 18) 


95 



0 


k l k 2 k 2 

[K] = - — — + — 

m l m l m 2 


^1 + ^1 
m 2 m 3 


Define a matrix Z: 


[Z] = - [I] + i “ [C] + hj [K] 

03 l 


Equation (C.16) can be written as 


fH ( 03 ) 


[Z] H (m) 


H (oj) 


Thus , 


[H (u,)' 

y l 


H (co) 


[Z] 1 0 


H (w) 
y 3 
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The complex frequency responses, H (to) , H (to) and H (to) can be readily 

y l y 2 y 3 

calculated from Equation (C.21). The complex frequency response functions are 
sometimes called transfer functions. They give the response at one point due to 
a unit input excitation at some other point. 


It was shown, for example, in References 4 and 9 that the input and output power 
spectral densities of a random process are also related by the transfer functions 
in the following manner. 


S (to) 
y i 


H y ^(u )| 2 S Q (to) 


(i=l, 2, 3) 


(C. 22) 


where 

S («) 
y l 


s 0 M 

H M 
y i 


PSD of the system output y^ (i=l, 2, 3). 

PSD of the system input. 

magnitude of transfer function as calculated from (C.21). 
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APPENDIX D 


COMPUTER PROGRAM FOR PREDICTING THE DYNAMIC RESPONSE 
OF THE BRAYTON ROTATING UNIT TO AXIAL RANDOM EXCITATIONS 

This appendix presents a complete listing of the computer program (MTI PN-492) 
which calculates the axial response of the Brayton Rotating Unit under random 
excitation. Also included in this appendix are instructions for preparing input 
data cards, sample input and sample computer output. 
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PROGRAM INPUT CARDS 


Card I FORMAT (15) 

This card reads in NCASE which is the number of cases. 

Card 2 FORMAT (80H) 

This card contains the descriptive identification for the case being computed. 

Card 3 FORMAT (8E10. 3) 

This card reads in FAC. 

FAC » numerical factor to be multiplied with the power spectral density 
specifications to permit calculations at various levels without 
requiring the entire specification to be modified and resubmitted as 
input . 

Card 4 FORMAT (8E10.3) 

This card contains ENGM(l), ENGC(l) and ENGK(l) . 

ENGM(l) ■ m^ in pounds 

ENGC(l) - C;L in lb sec/in. 

ENGK(l) - k 1 in lb/in. 

The quantities m^, c^ and are shown in Figure 13. 

Card 5 FORMAT (8E10.3) 

This card contains ENGM (2 ) , ENGC(2) and ENGK(2) . 

ENGM(2) « m^ in pounds 

ENGC(2) « c 2 in lb sec/in. 

ENGK (2 ) - k 2 in lb/in. 

The quantities m 2 , c 2 and k 2 are shown in Figure 13. 

Card 6 FORMAT (8E10.3) 

This card contains ENGM(3), ENGC(3) and ENGK(3). 

ENGM(3) = m^ in pounds 

ENGC(3) " c^ in lb sec/in. 
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ENGK(3) = k 3 in lb/in. 

The quantities m^, and k^ are shown in Figure 13. 

Card 7 FORMAT (515) 

This card contains NRANG, SPEC. 

NRANG = number of frequency ranges. Each frequency range will be defined in 
Card 8 by an initial frequency, a final frequency and an incremental 
frequency. 

SPEC = 1: PSD of Figure 10 will be read in. 

2 

2: a white noise displacement PSD of 1 in /Hz will be read in. 

2 

3 : a white noise acceleration PSD of 0.01 g /Hz will be read in. 

NOTE: The PSD values read in will be multiplied by FAC specified in Card 3. 

Card 8 FORMAT (8E10.3) 

This set of cards specifies the frequencies at which the response PSD will be 
calculated. The number of cards in this set is equal to NRANG of Card 7. Each 
card containing, WINIT, WFIN and WDELT represents a frequency range. 

WiNIT = initial frequency in Hz . 

WFIN = final frequency in Hz. 

WDELT = incremental frequency in Hz . 

NOTE: Card 2 through Card 8 represent one case. The whole sequence can be 

repeated as many times as the number of cases specified in Card 1. 
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MATHEMATICAL SYMBOLS 


arbitrary constant used to obtain curve fit; acceleration amplitude, g's. 

coefficient of viscous damping of thrust-bearing gas film, a nonlinear 
function of arguments indicated in suffixed parentheses, lb-sec/in,; 
arbitrary constant used to obtain curve fit. 

arbitrary constant used to obtain curve fit. 

coefficient of viscous damping, lb-sec/in. 

arbitrary constant used to obtain curve fit. 

base of natural logarithms. 

net aerodynamic force acting on rotor, lb. 

frequency, Hz. 

net force exerted by thrust-bearing gas film, a nonlinear function of 
arguments usually indicated in suffixed parentheses, lb. 

2 

local gravitational acceleration, in/sec . 
transfer function 

thrust-bearing gas-film thickness, in. 

spring stiffness, lb/in. 

2 

mass, lb-sec /in. 
power spectral density level 
averaging time parameter, sec. 
time, sec. 

static component of thrust-bearing gas-film force, a nonlinear function 
of arguments usually listed in suffixed parentheses, lb. 

displacement with respect to inertial reference frame, in. 

displacement relative to position of static equilibrium, in. 

angular velocity, radians/sec. 
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1 


AXIAL 

RANDOM v I RATION response 

0.01 

96. 

C . 0 2 

300000. 

7. 

0.02 

250000 . 

21 . 

84. 

113500. 

3 

1 


20. 

200. 

2. 

200. 

400. 

5. 

400. 

2000. 

20. 


OOOOOCOOC OOOO 00 000 0000 


NOMINAL CASE 
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AXIAL RANDOM VIBRATION RESPONSE.' - NOMINAL CASE 


MULTIPLIER FOR INPUT PSO o 1.000E-02 

INPUT VI8WAIION PO»ER spectral oensity specification code IS 1. 

ROTOR HEARING SYSTEM PROPERTIES ARE SPECIFIED BY THE FOLLOWING 
SETS OF VALUES 

MASS HEIGHT DAMPING SPRING 

SPRING OF MASS <L8S*SEC STIFFNESS 

NO <L8SI PER INCHI tLSS/ INCH) 

1 96.000 .020 3*OOOE«OS 

2 7,000 .020 2.500E+05 

3 21.000 84.000 1»I35E«05 


THE FOLLOWING 3 FREQUENCY RANGES WILL BE RUN 

PANC-E INITIAL FINAL FREQUENCY 

NO FREQUENCY FREQUENCY INCREMENT 

1 20.00 200.00 2.000 

2 200.00 400.00 5.000 

3 400.00 2000.00 20.000 


MATRIX M 

1 • 000E ♦ 00 

0 . 

0. 

MATRIX C 
4.021E-02 

-4. 021E-02 

0. 

MATRIX K 
1 .206E+06 

-1.005E+06 

0 . 

0 . 

1 .OOOE^OO 

0 . 

-4.021E-02 

S.916E-01 

-2.316E*03 

~1.206E*06 

1 .479E*07 

-6.259£*06 

0. 

0 . 

1 .000t*00 

0. 

-5.514E-01 

3.088E*03 

0 . 

•1«379E«07 

8.34S£«06 
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FREQUENCY RANGE NUMBER 1 


COVERS THE RANGE FROM 20 

.00 TO 200 

.00 



IN INCREMENTS 

OF 2.00 





FREQUENCY 

PSD OF Y I 

PSD OF Y2 

PSO OF Y3 

PSD INPUT 

PSD INPUT 

<MZ> 

(IN* IN/HZ) 

( IN*IN/HZ> 

(IN*IN/HZ) 

UN* IN/HZ) 

(G*G/MZ1 

20.000 

S.323E-12 

3.975E-I3 

1.0076-12 

1.792E-08 

3.000E-05 

22.000 

5.9106-12 

4.424E-I3 

1.210E-12 

1 .3476-08 

3.300E-05 

24.000 

6.506E-I2 

4.888E-13 

1.337E-12 

1 .0376-08 

3.600E-05 

26.000 

7.119E-I2 

5.3706-13 

1.470E-12 

8.I59E-09 

3.900E-05 

26.000 

7.7506-12 

S. 0716-13 

1.607E-12 

6.532E-09 

4.200E-05 

30.000 

R. 4016-12 

6.3946-13 

1.751E-12 

5.3I1E-09 

4 ,5006-05 

32.000 

9.0746-12 

6.9426-13 

1.9026-12 

4.376E-09 

4.0006-05 

34.000 

9.772E-12 

7.516E-I3 

2.061E-12 

3.640E-O9 

5.100E-05 

36.000 

l.osoE-n 

8.U9E-13 

2.2276-12 

3. 0746-09 

5.400E-0S 

36.000 

1.125E-11 

0.755E-13 

2 .403E-1 2 

2.61 3E -09 

5.700E-05 

40.000 

1.2046-11 

9.4276-13 

2.589E-12 

2.241E-09 

6.000E-05 

**2.000 

1.28*6-11 

1 .0146-12 

2.787E-1 2 

1. 9366-09 

6.300E-05 

44.000 

1.372E-11 

1.090E-12 

2.997E-12 

I.683E-09 

6.600E-05 

46.000 

1.463E-1I 

1 • I70E-12 

3.2206“ 12 

1. 4736-09 

6.900E-05 

4B.00U 

1.5586-11 

1.2S6E-12 

3.4S9E-12 

1.297E-09 

7.200E-0S 

SO. 000 

1 .6586—11 

1.34 86-12 

3.71SE-12 

1. 1476-09 

7. 500E-0S 

52.000 

1.764E-1 1 

1.446E-12 

3.990E-12 

I.020E-09 

7.BOOE-OS 

54.000 

1.8766-11 

1.5S2E-12 

4.28SE-12 

9. 1 07E-10 

8. 100E-05 

56.000 

1.9956-11 

1.666E-12 

4.6036-12 

8. 166E-10 

8.400E-05 

56.000 

2.1226-11 

1.789E-12 

4.947E-12 

7 .3506-10 

8.700E-OS 

60.000 

2.2576-11 

I. 9216-12 

5.320E-12 

6.639E-I0 

9,0006-05 

62.000 

2.401E-U 

2.0666-12 

5.7256-12 

6.017E-10 

9.3006-05 

b4 .000 

2.S56E-11 

2.223E-12 

6.166E-12 

5.470E- 10 

9.6006-05 

66.000 

2.722E-1 1 

2.3946-12 

6.6476-12 

H.988E-10 

9.9006-05 

66.000 

2.900E-11 

2.5B1E-12 

7.174E-12 

4.561E-1 0 

1.0206-04 

70.000 

3.093E-11 

2.786E-12 

7.752E-12 

4.18IE-I0 

1.0506-04 

72.000 

3. 302E-1 1 

3.0116-12 

8.388E-12 

3.842E-10 

1.0806-04 

74.000 

3.S296-11 

3.2596-12 

9.090E-12 

3.539E-1 0 

1.1106-04 

76.000. 

3.776E-11 

3.534E-12 

9.868E-12 

3.267E-10 

1.140E-04 

76.000 

4.0456-11 

3.839E- 12 

1.0736-11 

3. 022E-1 0 

1.1706-04 

6.0.000 

4.341E-11 

4.1786-12 

1.170E-11 

2.801E-10 

1 .2006-04 

62.000 

4.6666-11 

4.557E-12 

1.2776-11 

2.601E-I0 

1.230E-04 

84.000 

5.0256-11 

4.983E- 12 

1.398E-11 

2.419E-10 

' .2606-04 

86.000 

5.4236-11 

5.4616-12 

1.S35E-11 

2.255E-10 

1.2906-04 

88.000 

5.3656-11 

6. 003E-12 

1. 6896- 11 

2.104E-10 

1.3206-04 

VC. 000 

6. 3606-11 

6.616E-12 

1.865E-11 

1 .9676—10 

1.3506-04 

92.000 

6.916E-1 1 

7.320E-12 

2.065E-11 

1.842E-10 

1.380E-04 

V4.000 

7.5446-11 

8.1266-12 

2.296E-11 

1.726E-10 

1.4106-04 

96.000 

R.?5?E-ll 

9.056E-12 

2.562E-11 

1.621E-10 

1.4406-04 

V6.000 

9.0 726- 1 1 

1. 0146-11 

2 •872E-1 1 

1.524E-10 

1 .*706-04 

100.000 

1.00 1 E- 1 0 

1.140E-11 

3.23SE-11 

1.434E-10 

1.5006-04 

102.000 

1 .U8R6-10 

1 .263E-1 1 

3.591E-1 1 

1.32SE-10 

1.500E-04 

1 04. 000 

1.1896-10 

1.409E-11 

4.010E-11 

1.226E-10 

1.5006-04 

lot . 000 

1.307E-IO 

1.582E-11 

4.510E-11 

1.136E-10 

1.500E-04 

106.000 

I .44 76-10 

l. 7906-11 

S.1I0E-II 

1.054E-10 

1 .5006-04 

110.000 

1.615E-10 

2.042E-11 

5.840E-11 

9.794E- 1 1 

1.5006-04 

112.000 

1 .8196-10 

2.352E-11 

6.737E-11 

9.113E-11 

1.5006-04 

114.000 

2.0696-10 

2.7386-11 

7.8S7E-11 

8.490E-11 

1.5006-04 

llfr.OOi) 

2.382E-10 

3.228E-11 

9.278E-11 

7 .920E-11 

1.S00E-04 

1 16.000 

2 . 7806-10 

3.860E-11 

1.111 E” 10 

7.396E-11 

1.5006-04 

120.000 

3.2976-10 

4.6956-11 

1.3S4E-10 

6.915E-1 1 

1.5006-04 

122.000 

3.986E-10 

5.826E-11 

1.6B3E-10 

6,4736-1 1 

1.5006-04 

124.000 

4.935E-10 

7.407E-11 

2.144E-10 

6.065E-11 

1.5006-04 

126.000 

6. 2896-10 

9.701E-IJ 

2.BJ36-J0 

S,6B9E-JJ 

1.500E-04 

126.000 

8.3136-10 

1.319E-10 

3.830E-10 

5.3426-11 

1.5006-04 

130.000 

1 .151E-09 

1.8796-10 

5.469E-10 

5.021E-11 

1.5006-04 

132.000 

1.6926-09 

2.8456-10 

8.293E-10 

4.723E-U 

1.5006-04 

134.000 

2.674E-09 

4.634E-10 

1 • 3S3E-09 

4.448E-11 

1.5006-04 

l 36.000 

4.8136-09 

«. 0686-10 

2.361E-09 

4.I92E-11 

1.S006-04 

136.000 

7.2416-09 

1.3366-09 

3.918E-09 

3.954E-11 

1.5006-04 

14C.OOO 

7.8076-09 

I. 4896-09 

4.373E-09 

3.733E-11 

1.5006-04 

142.000 

5.0966-09 

1.005E-09 

2.9S7E-09 

3.5276-11 

1.5006-04 

144.000 

2.8776-09 

5.873E-10 

1.732E-09 

3.335E-1 1 

1.5006-04 

]4 t .00d 

I.70JE-09 

J.601E-I0 

1.064E-09 

3.1 566- l 1 

1. 5006-04 

l4f .coo 

1 .0866-09 

2.382E-10 

7.0506-10 

2.989E-1 1 

1.5006-04 

150.003 

7.391E-10 

1 .601E-1O 

4.986E-10 

2.8336-11 

1.500E-04 

152.000 

5.2896-10 

1.249E-10 

3.713E-10 

2.686E-1 1 

1.500E-04 

154.000 

3.937E- 1 0 

9.6696-11 

2.879E-10 

2.5506-11 

1 .500E-04 

156.000 

3.024E-10 

7.727E-11 

2.306E-10 

2.421E-11 

1.5006-04 

156.000 

2.3836-10 

6.339E-U 

I.896E-10 

2.301E-11 

1.5006-04 

160.000 

1 .9166-10 

S.314E-11 

1.592E-10 

2 • 188E-1 1 

1.5006-04 

162.000 

1 .5686-10 

4.5376-11 

1.362E-10 

2.082E-11 

1.5006-04 

164.000 

1 .3026-10 

3.9336-11 

1 • 183E-10 

1 .982E-1 1 

1.S00E-04 

166.000 

1.09SE-10 

3.456E-11 

1.042E-10 

1 .8886-11 

1.5006-04 

lfcfc.000 

9.3116-11 

3.073E-11 

9.282E-11 

1 .800E-11 

1.500E-04 

170.000 

7.994E-11 

2.7606-U 

8.3S5E-U 

1 *7176-1 l 

1.5006-04 

172.000 

6. 9226-1 1 

2.5026-11 

7.591E-11 

1 .6386-11 

1.5006-04 

174.000 

6.041E-1 1 

2.2806-11 

6.9S4E-11 

1.564E-11 

1.500E-04 

176.000 

5.309E-11 

2.107E-11 

6.419E-11 

1.495E-11 

1.500E-04 

176.000 

4.690E-1 1 

1.9546-11 

5.966E-11 

1.428E-11 

1.5006-04 

160.000 

4.1826-11 

1.8246-11 

5.580E-11 

1 .3666-11 

1.5006-04 

162.000 

3.7466-11 

1.713E-11 

5.250E-11 

1.307E-11 

1.500E-04 

184.000 

3.374E-I I 

1.6176-11 

4.966E-W 

1.251E-11 

1.5006-04 

146.000 

3.0566-1 1 

1.534E-11 

4.721E-11 

1.198E-11 

1.5006-04 

186.000 

2.7046-11 

1.462E-11 

4.510E-11 

1.140E-11 

1.5006-04 

190.000 

2.5S1E-11 

1.400E-11 

4.327E-11 

1.100E-11 

1.5006-04 

192.000 

2.3S06-11 

1.34SE-11 

4.168E-11 

1 *0556-1 1 

1.S006-04 

194.000 

2.1786-11 

1 .2986-11 

4.030E-11 

1 .0126-1 1 

1.5006-04 

196.000 

2.031E-11 

1.257E-11 

3.911E-11 

9.717E-12 

1.5006-04 

198.000 

1.906E-11 

1.221E-11 

3.808E-11 

9.330E- 12 

1.5006-04 

200.000 

1. 8016-11 

1.1906-11 

3.719E-11 

8.962E— 12 

1.5006-04 

INTEGRATED Y 

8.9726-00 

1.699E-08 

4.993E-08 

1 .7726-07 

2.2206-02 

TOTAL INT Y 

R. 9726-08 

1.699E-08 

4.993E-08 

1. 7726-07 

2.22 06-02 





FPEOUENCY RANGE NUMBER 2 


covers the range 

FROM 200 

.00 TO 400 

o 

o 

• 



IN INCREMENTS OF 

5.00 





FREQUENCY 

PSO OF Y 1 

PSD OF Y2 

PSD OF Y3 

PSD INPUT 

PSD INPUT 

(HZ) 

( IN*IN/HZ> 

( I N* I N/H2 ) 

( I N® I N/H2 ) 

( 1 N* IN/HZ ) 

(G*G/HZ) 

200.000 

1 .801E-1 1 

1.190E-11 

3.719E-11 

8.962E-12 

1.500E-04 

205.000 

1 .61 IE-11 

1.128E-11 

3.543E-1 1 

8. 120E-12 

1 .500E-04 

210.000 

1.507E-1 1 

1.082E-11 

3.416E-11 

7 • 373E-12 

1 .500E-04 

215.000 

1 .473E-11 

1.043E-11 

3.309E-11 

6.711E-12 

1 .500E-04 

220.000 

1 .493E-1 1 

1.002E-11 

3.194E-11 

6. 121E-12 

1 .500E-04 

225.000 

1.547E-11 

9.493E-12 

3.041E-1 1 

5.595E-12 

1 .500E-04 

230.000 

1 .608E-11 

8.768E-12 

2.821E-11 

5.124E-12 

1 .500E-04 

235.000 

1 .646E-1 1 

7.816E-12 

2.527E-1 1 

4.702E-12 

1. 500E-04 

240.000 

1 . 639E- 1 1 

6.689E-12 

2. 172E-11 

4.322E-12 

1.500E-04 

245.000 

1 .579E-1 1 

5.501E-12 

1.793E-11 

3.980E-12 

1 .500E-04 

250.000 

1.473E-11 

4.375E-12 

1.432E-11 

3.671E-12 

1.500E-04 

255.000 

1 .340E-1 1 

3.398E-12 

1.116E-11 

3.391E-12 

1.500E-04 

260.000 

1 . 199E-1 1 

2.604E-1 2 

8.582E-12 

3. 138E-12 

1.500E-04 

265.000 

1.062E-11 

1 .985E-12 

6.562E-1 2 

2.908E-1 2 

1.500E-04 

270.000 

9.357E-12 

1.514E-12 

5.020E-12 

2.698E-12 

1 . 500E-04 

275.000 

8.240E-12 

1 . 161E-12 

3.857E-12 

2.507E-12 

1.500E-04 

2H0.000 

7.265E-12 

8.960E-13 

2.983E-12 

2.333E-12 

1.500E-04 

255.000 

6.423E-12 

b.975E-13 

2.327E-12 

2.174E-12 

1.500E-04 

290.000 

5.698E-12 

5.480E-13 

1.830E-12 

2.027E-12 

1.500E-04 

295.000 

5. 075E-12 

4.345E-13 

1.452E-12 

1 .893E-12 

1 .500E-04 

300.000 

4.537E-12 ' 

3.477E-13 

1.163E-12 

1.770E-12 

1.500E-04 

305.000 

4.072E-12 

2.807E-13 

9.384E-13 

1.657E-12 

1.500E-04 

31C.000 

3.668E-12 

2.286E-13 

7.635E-13 

1.553E-12 

1.500E-04 

315.000 

3.317E-12 

1 .876E-1 3 

6.260E-13 

1.456E-12 

1.500E-04 

320.000 

3.009E-12 

1 .552E-13 

5. 169E-13 

1 .368E-12 

1.S00E-04 

325.000 

2.738E-12 

1.293E-13 

4.297E-13 

1.285E-12 

1 . 500E-04 

330.000 

2.499E-1 2 

1 .085E-13 

3.595E-13 

1.209E-12 

1 • 500E-04 

335.000 

2.288E-12 

9. 16AE-14 

3.025E-13 

1 .139E-12 

I.500E-04 

340.000 

2.099E-12 

7.789E-14 

2.560E-13 

1 .073E-12 

1.500E-04 

3^5.000 

1 .931E-12 

6.659E-14 

2.178E-13 

1 .012E-12 

1.500E-04 

350.000 

1 .781E-12 

5.726E-14 

1.863E-13 

9.556E-13 

1 .500E-04 

355.000 

1 .646E-12 

4.951E-14 

1 .600E-13 

9.029E-13 

1 . 500E-04 

360.000 

1 .524E-12 

4.302E-14 

1 .381E-13 

8.538E-13 

1.500E-04 

3b5. 000 

1 .414E-12 

3.7S7E-14 

1.197E-13 

3.079E-13 

1.500E-04 

370.000 

1 .314E-12 

3.297E-14 

1.04 IE- 13 

7.651E-13 

I.500E-04 

375.000 

1 .224E-12 

2.906E-14 

9.093E-14 

7 .2S1E-13 

1 .500E-04 

380.000 

l . 141E-12 

2.573E-14 

7.970E-14 

6.877E-13 

1.500E-04 

365.000 

1 .066E-12 

2 . 288E- 1 4 

7.010E-14 

6.527E-13 

1.500E-04 

390.000 

9.972E-13 

2.042E-14 

6.186E-14 

6.199E-13 

1 .500E-04 

395.000 

9.341E-13 

1 .830E-14 

5.476E-14 

5.891E-13 

1.500E-04 

400.000 

8.762E-13 

1 .646E-14 

4.862E-14 

5.602E-13 

1 .500E-04 

INTEGRATED Y 

1 .432E-09 

5.320E-10 

1.708E-09 

5.232E-10 

3.000E-02 

TOTAL INT Y 

9,11 5E-08 

1 • 752E-08 

5.164E-08 

1.777E-07 

5 , 220E-02 
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«« -o o«»»9 **************** 


F R£*JuF*NCY RANGE NUMfiER 3 

CC-VceS The range FROM 400.00 TO 2000.00 


IN 1 NCKF hents 

OF 20.00 





FRF.UUtNCY 

PSD OF Y 1 

PSO OF Y2 

PSD OP Y3 

PSD INPUT 

PSD INPUT 

1*2 I 


UN* IN/HZ) 

( ] N*I N/HZ ) 

( IN* IN/HZ ) 

(G*G/H2) 

400.000 

8.7626-13 

1.646E-14 

4.862E-14 

5.602E-13 

1.500E-04 

420.000 

6.866E-13 

1.1 16E-14 

3.104E-14 

4.608E-13 

1.500E-04 

440.000 

5.474E-I3 

7.9S4E-15 

2.060E-14 

3.626E-13 

1.500E-04 

460.000 

4.423E-13 

S.920E-15 

1.412E-14 

3.203E-13 

1.5006-04 

480.000 

3.627E-13 

4.5736-15 

9.956E-15 

2.701E-13 

1.500E-04 

500.001) 

3. 004E- 1 3 

3.6466-16 

7.185E-I5 

2.294E-13 

1.500E-04 

S20.000 

2. -5136-13 

2.984F.-1S 

5.2896-15 

1.961E-13 

1.5006-04 

S40.000 

2.120E-13 

2.493E-1S 

3.955E-15 

1.606E-13 

1.500E-04 

560.000 

1 .8036-13 

2.117E-1S 

2.995E-15 

1.458E-13 

1.500E-04 

5*0.000 

1 ,54«*E-13 

1.817E-15 

2.287E-15 

1.267E-13 

1.500E-04 

600.000 

1 .33 IE- 13 

1.570E-1S 

1.755E-15 

1.106E-13 

1.500E-04 

620.000 

1. 1546-13 

1 .3S8E-15 

1.349E-15 

9.705E-14 

1. 5006-04 

640,000 

1 .005E-13 

1.I72E-15 

1.034E-15 

8.547E-14 

1. 5006-04 

660.000 

8.8066-14 

1.0066-15 

7.887E-16 

7.557E-14 

1.5006-04 

680.000 

7.747E-14 

8.554E-16 

5.971E-16 

6.707E-14 

1.5006-04 

700.000 

6.B44E-14 

7.201E-16 

4.4806-16 

5.972E-14 

1.5006-04 

720.000 

6.069E-14 

5.9976-16 

3.332E-16 

5.336E-14 

1.5006-04 

74C.000 

5.402E-14 

4 . 943E-16 

2. 4576-16 

4.782E-14 

1.5006-04 

760.000 

4.824E-14 

4, 038E-lb 

1.800E-16 

4.298E-14 

1.5006-04 

780.000 

4.322E-14 

3.276E-16 

1.311E-16 

3.8746- 14 

1.5006-04 

800.000 

3.884E-14 

2;644E-16 

9.529E-17 

3.501E-14 

1.5006-04 

320.000 

3.500E-14 

2.I27E-16 

6.918E-17 

J.172E-14 

1.5006-04 

M4Q.000 

3.163E-14 

1.709E-16 

5.026E-17 

2.880E-14 

1.5006-04 

660.000 

2.865E-14 

1.3746-lto 

3.661E-17 

2.622E-14 

1.5006-04 

880.000 

2.602E-14 

1.106E-16 

2.676E-17 

2.391E-14 

1.5006-04 

900.000 

2.369E-14 

8.927E-17 

1.965E-17 

2.106E-14 

1.5006-04 

920.000 

2.162E-14 

7.227E-17 

1.450E-17 

2.002E-14 

1.5006-04 

940.000 

J.977E-J4 

5.8726-1 7 

1 .076E-17 

1.8 37E-14 

1.5006-04 

960.000 

1.011 E— 1 4 

4.790E-17 

8.035E-18 

1 .688E-14 

1.500E-04 

9M0.000 

1.663E-14 

3.924E-1 7 

6.034E-18 

1.555E-14 

1.5006-04 

1000.000 

1.S29E-14 

3.229E-17 

4.559E-18 

1.434E-14 

1.5006-04 

1020.000 

1.409E-14 

2.66BE-17 

3.466E-18 

1.325E-14 

1.500E-04 

1040.000 

1.301E-14 

2.214E-17 

2.650E-18 

1.226E-14 

1.5006-04 

1060.000 

1.202E-14 

1.84SE-1 7 

2.038E-18 

1.136E-14 

1.5006-04 

1060.000 

I. 11 3E-14 

I.543E-17 

1.576E-18 

1.054E-14 

1. 5006-04 

uoo.ooo 

1.032E-14 

1.297E-17 

1.226E-10 

9.794E-15 

1.500E-04 

1120.000 

9.587E-15 

1.094E-17 

9.587E-19 

9.11 3E-15 

1.500E-04 

1 140.000 

8.9166-15 

V.267E-18 

7.535E-19 

8.490E-15 

1.500E-04 

1 160. COO 

8.302E-15 

7.865E-18 

5.951E-19 

7.920E-15 

1.500E-04 

1160.000 

7.740E-15 

6.706E-18 

4.723E-19 

7.396E-15 

1.500E-04 

1200.000 

7.226E-15 

5.736E-18 

3.766E-19 

6.91SE-15 

1.500E-04 

1220.000 

6.754E-15 

4.923E-1B 

3.01 bE-19 

6.473E-15 

1 .5006-04 

1240.000 

6.319E-15 

4.238E-18 

2.426E-19 

6.0656^15 

1 .5006-04 

1260.000 

5.9206-15 

3.6b0E-18 

1.960E-19 

5.689E-15 

1 .500E-04 

1230.000 

5.551E-15 

3.169E-18 

1.589E-19 

5.342E-15 

1.500E-04 

1300.000 

5.21 IE-15 

2.7526-18 

1.294E-19 

5.021E-15 

1.500E-04 

1320.000 

4.897E-15 

2.396E-1 8 

1.057E-19 

4 . 723E-15 

1.500E-04 

1340.000 

4.606E-1S 

2.092E-18 

8.667E-20 

4.448E-15 

1.500E-04 

1 360.000 

4. 3366-15 

1.831E-16 

7.131E-20 

4.192E-15 

1 .5006-04 

1 360.000 

4.086E-1S 

1 .606E-ld 

5.888E-20 

3.954E-15 

1.S00E-04 

1400.000 

3.H54E-15 

1.4126-18 

4.876E-20 

3.733E-15 

1 .S0OE-04 

1420.000 

1.638E-15 

1.244E-18 

4.052E-20 

3.527E-15 

1.500E-04 

1440.000 

3.437E-15 

1 .099E-18 

3.376E-20 

3.335E-15 

1.500E-04 

1460.000 

3.2506-15 

9.7246-19 

2.822E-20 

3.156E-15 

1 .5006-04 

1480.000 

3. 075E-15 

8.623E-19 

2.365E-20 

2.989E-15 

1 .500E-04 

1600.000 

2.912E-15 

7.660E-1 9 

1 .908E-2O 

2.833E-15 

1.500E-04 

1620.000 

2.760E-15 

6.818E-19 

1 .675E-20 

2.686E-15 

1.500E-04 

1540.000 

2.617E-1S 

6 • O0OE-1 9 

1 .415E-20 

2.550E-15 

1.S0OE-04 

1560.000 

2.484E-15 

5.431E-19 

1 .198E-20 

2.421E-15 

1.500E-04 

15M0.000 

2. 359E-15 

4.859E-19 

1.017E-20 

2.301E-15 

1.500E-04 

1600.000 

2.242E-15 

4.355E-1 9 

8.657E-21 

2.188E-15 

1.500E-04 

1620.000 

2.1 32E-15 

3.909E-19 

7.383E-21 

2.082E-15 

1.500E-04 

1640.000 

2.029E-15 

3.5156-19 

6.311E-21 

1.982E-15 

1.S00E-04 

1660.000 

1.932E-15 

3.165E-19 

5.406E-21 

1.888E-15 

1.500E-04 

1680.000 

1 .840E-15 

2.854E-19 

4.640E-21 

1.800E-15 

1.500E-04 

1700.000 

1.754E-15 

2.577E-1 9 

3.991E-21 

1.717E-15 

1.500E-04 

1 720.000 

1 .6736-15 

2.330E-19 

3.439E-21 

1.6386-15 

1. 5006-04 

1740.000 

1.597E-15 

2.1106-19 

2.970E-21 

1.564E-15 

1.500E-04 

1760.000 

1 .52SE-15 

1.913E-19 

2.569E-21 

1.49SE-15 

1 .5006-04 

1780.000 

1.457E-15 

1 • 736E-1 9 

2.226E-21 

1.428E-15 

1.500E-04 

1800.000 

1.392E-15 

1.578E-19 

1.933E-21 

1.366E-15 

1.500E-04 

1820.000 

1 .332E-15 

1.436E-19 

1.681E-21 

1.307E-15 

1.500E-04 

1840,000 

1 . 2746-15 

1.308E-19 

1.464E-21 

1 .251E-15 

1.500E-04 

1860.000 

1.220E-15 

1.193E-19 

1.270E-21 

1.198E-15 

1 .5006-04 

1880.000 

1 • 168E-15 

1.089E-I9 

1.117E-21 

1.148E-15 

1.500E-04 

1900.000 

1.1 19E-15 

9.959E-20 

9.775E-22 

1.100E-15 

1.S00E-04 

1920.000 

1.073E-15 

9.11 3E-20 

8.570E-22 

1.055E-15 

1. 5006-04 

1940.000 

1.029E-15 

8.347E-20 

7.524E-22 

1.0126-15 

1.500E-04 

1960.000 

9.874E-16 

7.653E-20 

6.616E-22 

9.717E-16 

1.500E-04 

1900.000 

9.478E-16 

7.024E-20 

5.825 E-22 

9. 3306-16 

1.5006-04 

2000.000 

9. 1 02E-16 

6.453E-20 

5.136E-22 

8.962E-16 

1.5006-04 

INTEGRATED Y 

9.702E-1 1 

1.216E-12 

2.579E-12 

7.428E-11 

2.4006-01 

total int r 

9. 125E-08 

1 • 753E-08 

5.164E-08 

1.778E-07 

2.9226-01 
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PROGRAM V IBRAN C INPUT .OUTPUT • T APE5= INPUT . TAPE6=0UTPUT > 

DIMENSION TITLE CIO) *M(3.3)*C(3*3)*K(3f3) 

DIMENSION WNAT(3).Z£TA(3> .HOC 3) .ENGMC3) . ENGC (3) .ENGKC3) 

DIMENSION WINITC5) .WDELT<5> • wF IN (5) .F INI T (5) .FDELT (5) *FFIN<5) 
DIMENSION PSOC3) .PSOYC3) 

DIMENSION TINT (3) .TOTY (3) 

REAL M.K.MU 

integer spec 

READ (5* 1 15)NCASE 
KCASE^O 

5 CALL REAOIT(TITLE.ENGM.ENGC.ENGK.NRANG.SPEC.WINIT.WFIN.WDELT.FAC) 
CALL WRIT I T CTITLE .ENGM.ENGC *£N6K* NR ANG* SPEC* MINI T *WF IH.WOELT .FAC) 
CALL MATRX2CM.C.K.ENGM.ENGC.ENGK) 

WRITE (6. 195) 

DO 2 1=1*3 
TOTY < I ) =0. 

2 WRITEC6.190MMCI.J) .JM.3). CC C I . J) . j=l , 3) . CK ( I . J> . J=1 . 3) 

TOTS=0. 

TOTP=0. 

DO 420 III=1.NRANG 
WRITE tb. SO) 

WRITE (6. 100)111. WlNlTClII).WFlN(III) .WDELT (III) 

WRITEC6.110) 

W=WINIT(III) 

DEL=WDELT l II I) 

W=W-DEL 
00 650 J=Z .3 
650 YINT(J)=0. 

PSINT=0. 

SCAL I N=0 • 

00 400 11=1.1000 

W=W*DEL 

xw=w 

IFCW.GT.WFINCIin ) GO TO 400 
c ALL CALCULATIONS ARE DONE IN RAOIANS/SEC 
W=W*2.*3.14159 
CALL CALC CM.C*K.W.PS0) 

C CONVERT ALL FREQUENCIES IN TO HZ BEFORE CALLING FOR SPECS 

F=W/(2.*3. 14159) 

GO TO <565.600.610.600.600 >.SPEC 
585 CALL SPECl (F. SCALE) 

GO TO 645 

600 CALL SPEC2CF. SCALE) 

GO TO 645 

610 CALL SPEC3CF. SCALE) 

645 CONTINUE 

SCALE=SCALE*FAC 

IFCW.NE.O,) PSINCH=SCALE*(386.«*2/W**4) 

IFCW.EQ.O.) PSINCH=SCALE*<386.«»2/U.E-15)**4) 

IF (IUEQ.l.OR.XW.GE. CWFINC IID-.Ol) ) GO TO 200 
PS I NT -PS I NT ♦ PS INCH 

SCAL IN=SCAL IN+SCALE 
GO TO 220 

200 PSINT=PSINT*,5*PSINCH 
SCALIN=SCALIN*.5*SCALE 
IFCXW.LT. (WFIN(III)-. 01) ) GO TO 220 
PS I NT =PSINT*WDELT (III) 

SCALIN=SCAL IN*WDELT CHI) 

220 CONTINUE 

DO 330 J=1 *3 

PSDY C J) =SCALE*PSD < J) *386. **2 
IFCII.EQ.l.OR.XW.GE. (WFINCII D-.01 > )GO TO 350 
YINTC J)=VINT< J) ♦PSOY C J) 

GO TO 330 

350 YINT (J)=YINT CJ) ♦.5«PSDY ( J) 

IFCXW.GE. (WFINCIII)-.Ol) ) YINT (J)=YINT(J) *WOELT (III) 

330 CONTINUE 

C CONVERT ENGINEERING FREQUENCIES BACK INTO HZ 

W=W/C2.*3. 14159) 

WRITE C 6. 120 >W, (PSDY ( J) .J=1.3) .PS INCH. SCALE 
400 IF(II.EQ.IOOO) WRITE (6.160) (YINT (J) ,J=1 .3) .PSINT.SCALIN 
DO 30 J=1.3 

30 TOTY (J)=TOTY (J) .YINT (J) 

T0TP=T0TP*PSINT 

TOTS=TOTS*SCALIN 

WRITE (6. 170) (TOTY ( J) .J=l,3) .TOTP.TOTS 
420 CONTINUE 

KCASE=KCASE*1 
If CKCASE- nCASE)S.42S.425 
425 CALL EXIT 

90 FORMAT < I H 1 .//25X.80 ( 1H*> //) 

100 FORMAT (25X.22HFREQUENCY RANGE NuMBER, 15/ 

1 2 5X.21HC0VERS THE RANGE FR0m,f9.2.3X.2HT0,F9.2/ 

2 25X.19HIN INCREMENTS OF .F7.2/) 


110 FORMAT (25X.80H 

FREQUENCY 

PSO OF Y 1 

PSD OF Y2 

PSD OF Y3 

1 PSO INPUT 

PSD INPUT 

/ 



2 25X.80H 

(HZ) 

( IN* IN/HZ ) 

< IN* IN/HZ) 

( IN* IN/HZ ) 

3 <IN*IN/HZ) 

<G*G/HZ) 

/) 



115 FORMAT (15) 

120 FORMAT (25X.F12, 

3 *4X .5 (E 1 0 .3. 

3X) ) 




160 FORMAT (/25X . |2H INTEGRATED Y.4X.5 (E10.3.3X ) ) 

170 FORMAT (25X.12HT0TAL INT Y .4X.5 (E10.3.3X) ) 

195 F0RMAT(///5Xtl0HMATRIX M .36X.10HMATRIX C *36X*10HMATRIX K > 
190 FORMAT (5X.3(Ei0.3.3X).7x*3<E10«3*3X).7X*3(E10.3.3X)) 

END 
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SUBROUTINE READ I T (T I TLE .ENGM, ENGC.ENGK .NRANG. SPEC. W INI T ♦ wF IN.WDELT 
l.FAC > 

INTEGER SPEC 

DIMENSION ENGH<3> »ENGC ( 3) .ENGK (3),WINIT(5) ,WFIN(5> .WDELT (5) 
DIMENSION TITLE 18) 

READ (5*1 151 (TITLE (I It 1 = 1 .8) 

READ (5. 1 00 ) FAC 
DO 10 1=1.3 

10 RE AD (5. 100) ENGM ( I ) .ENGCt I) .ENGK ( I ) 

READ (5.1 10 INRANG. SPEC 
DO 2 0 I=1.NRANG 

20 READ(5.100)WINIT(I) .WFIn(I) .WDELT(I) 

100 FORMAT (8E 1 0 . 3) 

110 FORMAT (515) 

115 FORMAT (8A10) 

RETURN 

END 

SUBROUTINE WRI TIT (TITLE. ENGM, ENGC.ENGK, NRANG. SPEC. W INI T.WF IN.WDELT 
l.FAC ) 

INTEGER SPEC 

DIMENSION ENGM (3) .ENGC(3) .ENGK ( 3) . W INI T (5) .WF1n(5> .WDElT (5) 
DIMENSION TITLE (8) 

1 = 3 

WRITE (6, 100) (TITLE (I) .1=1,8) 

WRITE(6.105)FAC 
WRITE (6, 110) SPEC 
WRITE (6, 120) 

WRITE (6. 130) 

DO 10 J=1.I 

10 WRITE (6, 140 ) J.ENGM ( J ) ,ENGC(J) .ENGK < J) 

WRITE (6, 150) NRANG 
WRITE (6, 160) 

DO 20 1=1. NRANG 

20 WRITE (6,170) I.WlNIT (I) , WFINI I ) .WDELT ( I ) 

RETURN 

100 FORMAT (1H1//30X.8A10//) 

105 FORMAT (40X « 27HHULT IPL IER FOR INPUT PSD = .E10.3 /) 

110 FORMAT (40 X.60H INPUT VIBRATION POWER SPECTRAL DENSITY SPECIFICATION 
1 CODE IS.I5.1H./) 

120 FORMAT (40 K ,65HR0T0R BEARING SYSTEM PROPERTIES ARE SPECIFIED BY THE 
1 FOLLOWING /40X, 15HSETS OF VALUES /> 

130 FORMAT (45X.50H MASS WEIGHT DAMPING SPRING / 

1 4SX.50HSPRING OF MASS ' (LBS«SEC STIFFNESS / 

2 45X.50H NO (LBS) PER INCH) (LBS/INCH)) 

140 FORMAT (45X.I5.2(5X,F10,3) ,5X,E10.3) 

150 FORMATI//40X, 13HTHE FOLLOWING. I5.30H FREQUENCY RANGES WILL BE R 
1UN /) 

160 FORMAT (45X.50HRANGE INITIAL FINAL FREQUENCY/ 

1 45X.50H NO FREQUENCY FREQUENCY INCREMENT) 

170 FORMAT (45X,I5.2(5X,F10,2),5X»F10.3) 

END 

SUBROUTINE SPEC1 (F, SCALE) 

SNAPS SPEC 

NASA LEWIS SPEC 417-2, REV C, 1 JUNE69 
PARAGRAPH 3. 5. 1.2. 2 
EGS SYSTEM (OPERATING) 

IF (F .GT. 100. .AND. F ,LT. 2000.) GO TO 5090 
IF (F .GT.2000. .OR. F.LT. 19.) GO TO 5110 
FX=F 
F2=100. 

PSD2=.015 

R=3. 

SCALE=PS02«(FX/F2)«®(R/3.) 

RETURN 

5090 SCALE=.015 
RETURN 

5110 SCALE=0, 

RETURN 

END 

SUBROUTINE SPEC2(F, SCALE) 

SCALE=(2.*3.14159«F> »*4/386.*®2 

RETURN 

ENO 

SUBROUTINE SPEC3 (F , SCALE ) 

SCALE=.01 

RETURN 

ENO 
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SUBROUTINE MINV(A,N«D«L,M) 

INVERT A matrix 

USAGE 

CALL MlNV <A»N»D*L»M) 

description of parameters 

A - INPUT MATRIX, DISTROYED IN COMPUTATION AND REPLACED By 
RESULTANT INVERSE. 

N - ORDER OF MATRIX A 
D - RESULTANT DETERMINANT 
L - WORK VECTOR OF LENGTH N 
M - WORK VECTOR OF LENGTH N 

REMARKS 

MATRIX A MUST BE A GENERAL MATRIX 
METHOD 

THE STANDARD GAUSS-JORDAN METHOD IS USEO. THE DETERMINANT 
IS ALSO CALCULATED. A DETERMINANT OF ZERO INDICATES THAT 
THE MATRIX IS SINGULAR. 

DIMENSION A(3«1)*L(1)*M(1) 

COMPLEX A,BIGA,HOLD,D 
C SEARCH FOR LARGEST ELEMENT 
D=1 .0 
NKk-N 

DO 80 K=1 ,N 

NK=NK*N 

L(K)=K 

M(K)=K 

KK=NK*K 

BIGA=A (KK) 

DO 20 J=K,N 
I Z=N* ( J-l ) 

DO 20 I=K *N 
IJ=IZ*I 

10 IF(CABS(BIGA)-CABS(A(IJ) ) ) 15,20*20 
15 BIGA=A(IJ) 

L(K)=I 
M(K)=J 
20 CONTINUE 

C INTERCHANGE ROWS 

J=L(K) 

IF(J-K) 35*35,25 
25 K I =K-N 

DO 30 1 = 1, N 
K I =K I *N 
HOLD=-A(KI) 

J I =K I -K ♦ J 
A(KI)=A(JI) 

30 A < JI ) =HOLD 
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C INTERCHANGE COLUMNS 
3S I =M (K ) 

IF(I-K) 45.45.38 
38 JP=N*(I-1> 

00 40 J=1.N 
JK=NK«J 
JI=JP*J 
H0LD=-A< JK) 

A(JK)=A(JI> 

40 A ( JI ) =H0LD 

DIVIDE COLUMN BY MINUS PIVOT (VALUE OF PIVOT ELEMENT IS 
CONTAINED IN BIGA) 

45 IF (CABS (BIGA) > 48.46.48 

46 D=0.0 
RETURN 

48 00 55 1=1. N 

IF(I-K) 50.55.50 
50 IK=NK* I 

A(IK)=A(IK)/(-BIGA) 

55 CONTINUE 

C REDUCE MATRIX 
DO 65 1=1. N 
IK=NK* I 
H0LD=A(IKI 
IJ=I-N 
DO 65 J=1.N 
IJ=IJ*N 

IF(I-K) 60.65.60 
60 IF ( J“K) 62.65.62 
62 KJ=IJ-I*K 

A(IJ»=HOLD*A(KJ).A(IJ) 

65 CONTINUE 

C DIVIDE ROW BY PIVOT 
KJ=K-N 
DO 75 J=1.N 
KJsKJ.N 

IF(J-K) 70.75.70 
70 A(KJ)=A(KJ)/BIGA 
75 CONTINUE 

C PRODUCT OF PIVOJS 

D=D*BIGA 

C REPLACE PIVOT BY RECIPROCAL 
A (KK> =1 .0/6 IGA 
80 CONTINUE 

C FINAL ROW AND COLUMN INTERCHANGE 
K=N 

100 K=(K-1> 

IF (K ) 150.150.105 
105 I=L(K> 

IF(I-K) 120.120.108 
108 JQ=N*(K-1> 

JR=N* ( I— 1 ) 

DO 110 J=1,N 

JK=JQ*J 

HOLO=A(JK| 

JJ=JR*J 
A ( JK) =-A ( JI ) 

110 A ( JI ) =HOLD 
120 J=M(K) 

IF(J-K) 100.100.125 
125 K I =K-N 

DO 130 1=1. N 
K I =K I »N 
HOLD=A(KI) 

JI=KI— K.J 
A ( K I ) =~A ( JI ) 

130 A ( JI ) =HOLO 
GO TO 100 
150 RETURN 
END 



SUBROUTINE MATRX2 (M*C*K*ENGM*ENGC*ENGK) 

DIMENSION M (3*3) »C(3«3) *K (3 *3 > *0(3) *W (3) *ZETA(3) *MU(3> 
DIMENSION ENGM (3) *ENGC(3> *ENGK (3) 

REAL M.K.MU 
DATA N/3/ 

DO 1090 1=1 »N 

W ( I ) =SQRT (ENGK ( I ) / (ENGM ( I ) /386. > ) 

ZETA < I ) =.5* (ENGC ( I ) / (SORT (ENGK (I ) *£NGM ( I ) /386. ) ) ) 

1090 CONTINUE 

DO 1135 1 = 1 *N 
DO 1135 J=1*N 
M ( I « J) =0* 

IF(I.EQ.J) M(I»J)=1. 

1135 CONTINUE 
MU ( 1 ) =1 • 

MU (2) =ENGM (2) /ENGM ( 1 ) 

MU(3)=ENGM(3)/ENGM(2) 

C ( 1 * 1 ) =ZETA ( 1 ) *W ( 1 ) 

C(1*2)=-ZETA(2)*W(2)*MU(2) 

C ( 1 *3) =0 • 

C(2*1)=-ZETA(1)*W(1) 

C(2*2) = (1.*MU<2> )*2ETA <2>*W(2> 

C(2*3)=-ZETA(3)*W(3)*MU(3) 

C(3»l>=0.0 

C(3*2)=~ZETA(2)*W(2> 

C(3»3)=(1.*MU(3) )*ZETA(3)*W(3) 

K ( 1 * 1 ) = W ( 1 ) **2 
K(1,2)=-W(2)**2*MU(2) 

K ( 1 » 3) =0 • 

K<2*l)=-W(l)**2 
K(2»2)=W(2)**2*(1.*MU<2) ) 

K(2»3)=-K(3)**2*MU(3) 

K (3* 1 ) =0.0 
K(3»2)=-W(2)**2 
K(3»3)=W(3)**2*(1.*MU(3) ) 

RETURN 

END 

SUBROUTINE CALC (M»C*K*H* PSD) 

DIMENSION M (3*3) »C (3*3) *K (3*3) ,PSD(3) *Z(3*3>*H(3*3) ,DUMYl (3) 
1 DUMY2 (3) 

COMPLEX EYE*Z»DUMY1*DUMY2*H,DETZ 
REAL M*K 
DATA N/3/ 

EYE=CMPLX(0.,1.) 

DO 60 J=1*N 
DO 60 I =1 * N 

60 Z(I*J)=(-W*W*M(ItJ) ♦K(ItJ) ) »EYE*W*C( I* J) 

CALL MINV(Z»N»DETZ»DUMY1»DUMY2) 

DO 110 I = 1*N 
00 110 J=1*N 
H ( I » J) =Z ( I * J) 

PSD(I)=(CABS(H(I,1) ) >**2 
110 CONTINUE 
RETURN 
END 



PIVOTED PAD 
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Fig. 1 Schematic of Turbocompressor Simulator Mounted 
On Test Stand (Vertical Orientation) 
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Fig. 2 Three-Degree-of-Freedom Nonlinear Axial Response Model of Simulator 
On Shock and Vibration Isolators 






NOTE * ANY OR ALL OF THE STIFFNESS AND 
DAMPING ELEMENTS MAY BE NONLINEAR 


Fig. 3 Lumped-Mass Model Used for Nonlinear- 
Element Computer Program 





Fig. 4 General Flowchart of Axial Shock and Vibration 
Response Computer Program 
























THRUST RUNNER CONTACTS 
REVERSE SIDE OF BEARING 
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Fig. 7 Schematic of Brayton Rotating Uiy.t With Mass, Spring 
And Damper Designations 
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RANDOM 
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1 

DIRECTION 
OF APPLIED 
VIBRATION 


Lg. 9 Model, for Demonstration Of Potentially Different Responses 
Due to Sinusoidal and Random Vibration 





Fig. 10 Random Vibration Power Spectral Density Test Specification 417-2 (Rev. C) 
For Electrical Generating System Components (Operating) During 
Space Flight Operation 
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Fig. 12 Random Vibration Power Spectral Density Test Specification 417-2 (Rev. C) 
For Electrical Generating System Components (Nonoperating) 





Fig. 13 Lumped-Mass Model Used For Calculation of Axial Vibration 
Response of BRU Rotor Bearing System to Specified Random 
Base Excitation 




Sy, , PSD OF RELATIVE DISPLACEMENT BETWEEN m, AND BASE-m^/Hi 
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ROTOR 

THRUST BEARING 
GAS FILM 

GIMBAL 

GIMBAL SUPPORT 
I I CASING 


MOUNT ARMS 


ELEMENT m(lb) k(lb/in 


lb -sec 
in 


96 300,000 0.02 

2 7 250,000 0.02 

3 21 113,500 84.00 


TEST INPUT LEVEL 
=0.54 G-rms 


CALCULATED VIBRATION AMPLITUDE 
ACROSS BRU MOUNT ARMS 
EQUALS 0.000290 in-rms 

(SQUARE ROOT OF AREA 
' UNDER PSD CURVE) 


10 
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TO 9.IOx IO' ,S in 2 /Hz 
I AT 2000 Hz 
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Fig. 1A Calculated Power Spectral Density of the Relative 
Displacement Between m 1 and Base 


INPUT ACCELERATION PSD -G7Hz 





no 


-i 


ROTOR 

THRUST BEARING 
GAS FILM 


GIMBAL 

GIMBAL SUPPORT 

m ' | CASING 

MOUNT ARMS 


10 


-2 


INPUT 


ELEMENT m(lb) k(lb/in) 


lb-sec 

in 


10 


-3 


96 300,000 0.02 

2 7 250,000 0.02 

3 21 113,500 84.00 


TEST INPUT LEVEL 
=0.54 G-rms 


10 


-4 


CALCULATED VIBRATION AMPLITUDE 
ACROSS THRUST BEARING GIMBAL 
RING EQUALS 0.000133 in - rms 

(SQUARE ROOT OF AREA UNDER 
PSD CURVE) 


TO 6.45 xIO" 20 in Z /Hz 
AT 2000 Hz 


IQ ’ 5 


\ 0 3 


FREQUENCY - HZ 


10 


F 


Fig. 15 Calculated Power Spectral Density of the Relative 
Displacement Between m ^ and 
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INPUT ACCELERATION PSD-G^/H: 




Sy_, PSD OF RELATIVE DISPLACEMENT BETWEEN m, AND - in7Hz 



I0‘ IO J 

FREQUENCY - HZ 


Fig. 16 Calculated Power Spectral Density of the Relative 
Displacement Between and m 2 
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INPUT ACCELERATION PSD-G7Hz 





THRUST BEARING FILM THICKNESS VARIATION POWER SPECTRAL DENSITY - in z /Hz 




ROTOR 

THRUST BEARING 
GAS FILM 

GIMBAL 

GIMBAL SUPPORT 


CASING 
MOUNT ARMS 


no 


-I 


INPUT 


_ lb-sec 

ELEMENT m{lb) k{lb/in) c ~~W~ 


96 100,000 0.02 

2 8 250,000 0.02 

3 21 113,500 84.00 


TEST INPUT LEVEL 
= 0.54 G-rms 


CALCULATED THRUST BEARING | 
FILM THICKNESS VARIATION 
t EQUALS 0.00035 In-rms 

(SQUARE- ROOT OF AREA 
UNDER PSD CURVE) 


10 


I3| 


TO 4.23 xIO' 23 in 2 /Hz 
AT 2000 Hz 


10-2 


10*3 


10 


-4 


I0' 5 


10 * 


10 ' 
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I0 3 


10 


FREQUENCY - HZ 


Fig. 18 Calculated Brayton Rotating Unit Thrust Bearing Film Thickness 
Variation Power Spectral Density and Equivalent RMS Value for 
°ne Axial Random Vibration BRU Test Condition 
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INPUT ACCELERATION POWER SPECTRAL DENSITY -G 7Hz 





Fig. 19 RMS Value Of The Thrust Bearing Gas Film Thickness 
Variation Versus Gimbal Support Stiffness 
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L ! 1 — . lb-sec 

ELEMENT m(lb) k(lb/in) c in 

I 96 300,000 0.02 


o AS SHOWN per) orv\ o 09 

2 ON ABSCISSA 250 »°00 0 02 

3 21 1 13,500 84.00 


1 




7 1 

MASS OF 
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Fig. 20 RMS Value Of The Thrust Bearing Gas Film Thickness 
Variation Versus Mass of Gimbal Support 




COMPRESSOR END 


COLD GAS 
TURBINE 

THRUST RUNNER 

COMPRESSOR END 
JOURNAL BEARING 

COMPRESSOR JOURNAL 
BEARING PIVOT FILM 
THICKNESS PROBES 

COMPRESSOR JOURNAL 
ORTHOGONAL PROBES 
(GROUND-TO-SHAFT) 


ROTOR 

TURBINE JOURNAL 
ORTHOGONAL PROBES 
(GROUND-TO-SHAFT) 

TURBINE JOURNAL 
BEARING PIVOT FILM 
THICKNESS PROBES 

TURBINE END 
JOURNAL BEARING ASSY 


THRUST BEARING STATOR 
AND GIMBAL ASSEMBLY 

THRUST BEARING FILM 
THICKNESS PROBES 



INSTRUMENTATION 

TURRET 


TURBINE END 



FLEX MOUNTED 
TILTING PAD 


JOURNAL BEARING ASSEMBLY 


Fig. 21 Schematic of BRU Simulator 




Fig. 22 BRU Thrust Bearing Stator 
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ACCELEROMETER ON 
TOP OF BRU SIMULATOR 


INSTRUMENTATION 
TURRET 


ACCELEROMETER ON 

TOP OF VERTICAL SUPPORT 

FIXTURE 


VERTICAL SUPPORT 
FIXTURE 


VIBRATION TABLE 


Fig. 23 BRU Simulator In Vertical Support Fixture For Vibration Testing 
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Fig. 24 BRU Simulator In Support Fixture For Transverse 
Vibration Testing 
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COMPRESSOR END UP 



21 

TURBINE END DOWN 


Fig. 25 Proximity Probe Locations on BRU Simulator Rotor and Bearings 
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PROXIMITY PROBE DESIGNATION 
ON BRU SIMULATOR 


Probe 

Identification 


Proximity Probe Designation 


A 

B 

C 

D 

F 

1 

2 

3 

4 
9 

11 

13 

17 

18 
20 
21 
22 

23 

24 


Pivot film thickness probe, flex mounted pad, compressor end 
Pivot film thickness probe, solid mounted pad, compressor end 
Pivot film thickness probe, solid mounted pad, compressor end 
Pivot film thickness probe, flex mounted pad, turbine end 
Pivot film thickness probe, solid mounted pad, turbine end 
Compressor journal orthogonal probe 
Compressor journal orthogonal probe 
Turbine journal orthogonal probe 
Turbine journal orthogonal probe 

Flex mounted pad leading edge probe, compressor end 
Solid mounted pad leading edge probe, compressor end 
Flex mounted pad leading edge probe, turbine end 
Compressor thrust plate film thickness pr :i>e 
Turbine thrust plate film thickness probe 
Turbine thrust plate film thickness probe 
Turbine journal flex mount pad load probe 
Compressor journal flex mount pad load probe 
Thrust bearing gimbal probe to ground 
Thrust bearing gimbal probe to ground 


Fig. 26 Capacitance Probes Used On BRU Simulator For 
Vibration Testing 
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Fig. 27 Location Of Control Accelerometer on Transverse Vibration 
Test Support Fixture 
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Fig. 30 Brayton Rotating Unit (BRU) Simulator Vibration Test 
Setup In MTI Latham Facility 



ACCELERATION POWER SPECTRAL DENSITY - 67 HZ 



FREQUENCY - HZ 


Fig. 31 Random Vibration Power Spectral Density Test Specification 417-2 
(Rev. C) For Electrical Generating System Components (Operating) 
And Actual BRU Test Levels 
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ACCELERATION POWER SPECTRAL DENSITY - G /HZ 



Fig. 32 Random Vibration Power Spectral Density Test Specification 417-2 

(Rev. C) For Electrical Generating System Components (Nonoperating) 
And Actual BRU Test Levels 
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Fig. 34 Sinusoidal Acceleration At The Top of the Vertical Support Fixture 

At A Location Next to The Control Accelerometer (Direction of Applied 
Vibration In-Line With BRU Rotor Axis) 
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Fig. 35 Sinusoidal Acceleration on BRU Simulator Mounting Bracket 
Counterclockwise From Turret (Direction Of Applied 
Vibration In-Line With BRU Rotor Axis) 
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Fig. 38 Sinusoidal Acceleration at the Top of the Vertical Support Fixture, 
' Clockwise from Turret (Direction of Applied Vibration 
In-Line With BRU Rotor Axis) 
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Fig. 40 Sinusoidal Acceleration at the Top of the Vertical Support 
Fixture Opposite From Turret (Direction of Applied 
Vibration In-Line With BRU Rotor Axis) 
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Fig. 41 Sinusoidal Acceleration on Top of BRU Simulator (Direction 
of Applied Vibration In-Line With BRU Rotor Axis) 
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Fig. 42 Pad-To-Shaft Pivot Film Thickness Variation For Flex-Mounted Compressor 
Journal Bearing Pad Under Externally- Imposed Sinusoidal Vibration of 
0.25 g peak 
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Fig. 44 Pad-To-Shaft Pivot Film Thickness Variation for Solid-Mounted Turbine 
Journal Bearing Pad Under Externally-Imposed Sinusoidal Vibration of 
0.25 g peak 
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Fig. 46 Turbine .Journal. Flexure Amplitudes Under F.xternal ly- Imposed Sinusoidal 
Vibration of 0.25 g Peak 
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Fig. 48 Compressor Journal Rotor Amplitudes (Casing-to-Shaf t ) Under Externally 
Imposed Sinusoidal Vibration of 0.25 g Peak 
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Fig. 49 Turbine Journal Rotor Amplitudes (Casing-to-Shaf t ) Under Externally- 
Imposed Sinusoidal Vibration of 0.25 g Peak 
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Fig. 50 Turbine Journal Rotor Amplitudes (Casing-to-Shaft) Under Externally- 
Imposed Sinusoidal Vibration of 0.25 g Peak 
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Fig. 52 Thrust Bearing Gimbal Amplitudes Under Externally-Impced Sinusoidal 
Vibration of 0.25 g Peak 
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Fig. 54 Pad-To-Shaft Pivot Film Thickness Variation for Flex-Mounted Turbine Journal 
Bearing Pad Under Externally-Imposed Sinusoidal Vibration of 0.12 g Peak 
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Fig. 55 Pad-To-Shaft Pivot Film Thickness Variation for Solid-Mounted Compressor 

Jou nal Bearing Pad Under Externally-Imposed Sinusoidal Vibration of 0.12 g Peak 
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Fig. 56 Pad-To-Shaft Pivot Film Thickness Variation for Solid-Mounted Turbine Journal 
Bearing Under Externally- Imposed Sinusoidal Vibration of 0.12 g Peak 
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Fig. 57 Compressor Journal Flexure Amplitudes Under Externally-Imposed Sinusoidal 
Vibration of 0.12 g Peak 




Fig. 58 Casing-To-Pad Leading Edge Amplitudes for Flex-Mounted Turbine Journal 
Bearing Pad Under Externally- Imposed Vibration of 0.12 g Peak. 
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Fig. 60 Turbine Journal Rotor Amplitudes (Casing-To-Shaft ) Under Externally-Imposed 
Sinusoidal Vibration of 0.12 g Peak 
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SHAKE TABLE FREQUENCY - Hz 
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SHAKE TABLE FREQUENCY - Hz 
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Fig. 64 Pad-To-Shaft Pivot Film Thickness Variation for Flex-Mounted Compressor Journal 
Bearing Pad (With Rub Occurring at 190 Hz) Under Externally- Imposed Sinusoidal 
Vibration of 0.12 g Peak 



AMBIENT GAS: N 2 
AMBIENT PRESSURE: 38 PSIA 
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Fig. 66 Pad-To-Shaft Pivot Film Thickness Variation for Solid-Mounted Compressor 
Journal Bearing Pad (With Rub Occurring at 190 Hz) Under Externally- 
Imposed Sinusoidal Vibration of 0.12 g Peak 
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Fig. 69 Turbine Journal Flexure Amplitudes (With Rub Occurring at 190 Hz) 
Under Externally Imposed Vibration of 0.12 g Peak 
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40 50 KX) 200 300 400 500 

SHAKE TABLE FREQUENCY -HZ 
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SOLID MOUNTED PAD (B) 
COMPRESSOR JOURNAL 


SOLID MOUNTED PAD (C) 
COMPRESSOR JOURNAL 

VERTICAL SCALE: 0.00025 IN./DIV. 

HORIZONTAL SCALE: 2 MSEC/DIV. 



VIBRATION TABLE VIBRATION TABLE 

FREQUENCY: 180 Hz FREQUENCY: 200 Hz 


LEVEL OF APPLIED VIBRATION: 0.12 G SINE 

ROTOR SPEED: 36,000 RPM 

VIBRATION TABLE FREQUENCY WHEN 

CONTACT OCCURRED BETWEEN 

COMPRESSOR JOURNAL PADS AND SHAFT: 190 Hz 



. 72 Pad-To-Shaft Pivot Film Thickness Variation For Compressor Journal Bearing 
Pads (With Rub Occurring at 190 Hz) Under Externally-Imposed Sinusoidal 
Vibration of 0.12 g Peak 
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TURBINE JOURNAL 
FLEXURE PROBE (NO. 21) 


VERTICAL SCALE: 0.0005 INJDIV. 
HORIZONTAL SCALE: 2 MSEC/DIV. 



VIBRATION TABLE 
FREQUENCY: 180 Hi 


VIBRATION TABLE 
FREQUENCY: 200 Hi 


LEVEL OF APPLIED VIBRATION: 0.12 G SINE 

ROTOR SPEED: 36,000 RPM 

VIBRATION TABLE FREQUENCY WHEN 

CONTACT OCCURRED BETWEEN 

COMPRESSOR JOURNAL PADS AND SHAFT: 130 Hi 



Fig, 73 Rotor and Flexure Amplitudes (With Rub Occurring at 190 Hz) Under 
Externally-Imposed Sinusoidal Vibration Of 0.12 g Peak 
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Fig. 74 Measured Temperatures In BRU Simulator Components (With Rub 

Occurring in Compressor-End Journal Bearing) Under Externally- 
Imposed Sinusoidal Vibration Of 0.12 g Peak 


185 



ONE MAJOR DIVISION 
EQUALS 0.0005 IN. 


CONSTANT EXPOSURE TIME 
FOR EACH PHOTO 


1/50 SEC 



1/50 SEC 



CAMERA SHUTTER SPEED: 1/50 SEC. 



1/50 SEC 



1 SEC 



RANDOM VIBRATION INPUT LEVEL: 1.2 G RM$ 

AMBIENT CONDITIONS: N 2 @ 14.7 PSIA 

HYDROSTATIC SUPPLY PRESSURE: 150 PSIA 
ROTOR SPEED: 2500 RPM 


Fig. 75 Rotor Amplitudes (Casing-To-Shaft ) Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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RANDOM VIBRATION INPUT LEVEL: 0.95 G RMS 

AMBIENT CONDITIONS: N @ 14.7 PSIA 
2 

HYDROSTATIC SUPPLY PRESSURE: 150 PSIA 
ROTOR SPEED: 2500 RPM 



Fig. 76 Bearing Amplitudes Under Shaped Random Vibrations According 
To NASA Spec 417-2-C-3.5 
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VIBRATION TIME - MINUTES 
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Fig. 78 Pad-To-Shaft Pivot Film Thickness Variation For Flex-Mounted Turbine 
Journal Bearing Pad Under Externally-Imposed Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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Fig. 79 Pad-To-Shaft Pivot Film Thickness Variation For Solid-Mounted Compressor 
Journal Bearing Pad i.ider Externally-Imposed Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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Fig. 81 Compressor Journal Flexure Amplitudes Under Shaped Random Vibrations 
4 wnr/Hno Tn NASA Snec 417-2 — C— 3.5 
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Fig. 82 Turbine Journal Flexure Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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Fig. 83 Casing-To-Pad Leading Edge t nplitudes For Flex-Mounted Turbine Journal 
Bearing Pad Under Externally- Imposed Shaped Random Vibrations 
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Fig. 84 Compressor Journal Rotor Amplitudes (Casing-To-Shaft) Under Shaped 
Random Vibrations According To NASA Spec 417-2-C-3.5 
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VIBRATION TIME - MINUTES 

Fig. 85 Turbine Journal Kotor Amplitudes (Casing-To-Shaf t) Under Shaped 
Random Vibrations According To NASA Spec A 1 -2-C-3.5 
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VIBRATION TIME - MINUTES 

Fig. 86 Thrust Bearing Film Thickness Variation Under Externally- Imposed 
Shaped Random Vibrations According To NASA Spec 417-2-C-3.5 



AMBIENT GAS: N 2 
AMBIENT PRESSURE:; 35 PSIA 
ROTOR SPEED: 36,000 RPM 
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Fig. 87 Thrust Bearing Gimbal Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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VIBRATION TIME - MWl/TES 

Fig. 88 Thrust Bearing Film Thickness Variation Under Externally- Imposed 
Shaped Random Vibrations According To NASA Spec 417-2-C-3.5 
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VIBRATION TIME - MINUTES 

Fig. 89 Thrust Bearing Gimbal Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 




APPLIED VIBRATION LEVEL: 0.75 G RMS 


APPLIED VIBRATION LEVEL: 1.2 G RMS 
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APPLIED VIBRATION LEVEL: 2.15 G RMS 



VERTICAL SCALE: 0.0005 IN./DIV. 
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VERTICAL SCALE: 0.0005 HL/PW. 
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AMBIENT CONDITIONS: N 2 © 35 PSIA 

ROTOR SPEED: 36000 RPM 

HYDROSTATIC SUPPLY PRESSURE 
THRUST BEARING: - 

TURBINE JOURNAL BEARING: - 
COMPRESSOR JOURNAL BEARING: 55 PSIA 

DISPLACEMENT PR08E NO. 17 


Fig. 90 


BRU Simulator Thrust Bearing Gas Film Thickness 
Shaped Random Vibrations According To NASA Spec 


Variations Under 
417-2-C-3.5 
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Fig. 91 Measured Temperatures in £RU Simulator Components With 
Axial Random Excitation (Shaft Speed 36,000 rpm) 
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Fig. 103 Vertical Sinusoidal Acceleration On BRU Simulator Mounting 

Bracket Clockwise From Turret At 0.12 g Peak Shake Table Input 
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Fig. 108 Pad-To-Shaft Pivot Film Thickness Variation For Solid-Mounted Turbine Journal 
Tinder Externally- Imposed Sinusoidal Vibration Of 0.12 g Peak 
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Fig. Ill Casing-To-Pad Leading Edge Amplitudes For Flex-Mounted Turbine Journal 
Bearing Pad Under Externally-Imposed Vibration Of 0.12 g Peak 
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Fig. 113 Compressor Journal Rotor Amplitudes (Casing-To-Shaft) Under Externally- 
Imposed Sinusoidal Vibration Of 0.12 g Peak 
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Imposed Sinusoidal Vibration Of 0.12 g 
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Fig. 118 Pad-To-Shaft Pivot Film Thickness Variation For Flex-Mounted 
Turbine Journal Bearing Pad Under Externally- Imposed 
Sinusoidal Vibration Of 0.12 g Peak 
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Fig. 130 Pad-To-Shaft Pivot Film Thickness Variation For Flex-Mounted 
Compressor Journal Bearing Pad Under Externally- Imposed 
Shaped Random Vibrations According To NASA Spec 417-2-C-3.5 









VIBRATION TIME - MINUTES 

Fig. 131 Pad-To-Shaft Pivot Film Thickness Variation For Flex-Mounted Turbine 
Journal Bearing Pad Under Externally- Imposed Shaped Random Vibrations 
According To NASA Spec 417-2-C- 3 . 5 













Fig. 132 Pad-To-Shaft Pivot Film Thickness Variation For Solid-Mounted 
Compressor Journal Bearing Pad Under Externally-Imposed Shaped 
Random Vibrations According To NASA Spec 417-2-C-3.5 







( c OI*'NI) SWM‘30nindWV N0I1VH9IA WOONVH 


244 


Fig. 133 Pad-To-Shaft Pivot Film Thickness Variation For Solid-Mounted Turbine 
Journal Bearing Pad Under Externally-Imposed Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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Fig. 134 Compressor Journal Flexure Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 




Fig. 135 Turbine Journal Flexure Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 










Casing-To-Pad Leading Edge Amplitudes For Flex-Mounted Turbine 
Journal Bearing Pad Under Externally- Imposed Shaped Random 
Vibrations According To NASA Spec 417-2-C-3.5 









VIBRATION TIME - MINUTES 

Fig. 137 Compressor Journal Rotor Amplitudes (Casing-To-Shaft) Under Shaped 
Random Vibrations According To NASA Spec 417-2-C-3.5 
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Fig. 138 Turbine Journal Rotor Amplitudes (Casing-To-Shaft) Under Shaped 
Random Vibrations According To NASA Spec 417-2-C-3.5 
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Fig. 140 Thrust Bearing Film Thickness Variation Under Externally- Imposed 
Shaped Random Vibrations According To NASA Spec 417-2-C-3.5 




Fig. 141 Thrust Bearing Gimbal Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 





VIBRATION TIME - MINUTES 

Fig. 142 Thrust Bearing Gimbal Amplitudes Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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Fig. 143 Measured Temperatures In BRU Simulator Components With 
Transverse Random Excitation (Shaft Speed 36,000 rpm) 
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VERTICAL SCALE: 0.0006 INVDIV. 
DISPLACEMENT PROBE NO. 20 

SEPARATION BETWEEN THRUST RUNNER AND 
THRUST PLATE 



VERTICAL SCALE: 0.0015 INVDIV. 
DISPLACEMENT PROBE NO. 24 
THRUST BEARING GIMBAL VIBRATIONS 



VERTICAL SCALE: 0.00025 INVDIV. 

DISPLACEMENT PROBE D 

SEPARATION BETWEEN FLEX MOUNTED JOURNAL 
BEARING PAD AND ROTOR. 
TURBINE END 


VERTICAL SCALE: 0.00025 INVDIV. 

DISPLACEMENT PROBE F 

SEPARATION BETWEEN SOLID MOUNTED JOURNAL 
BEARING PAD AND ROTOR. 
TURBINE END 



VERTICAL SCALE: 0.001 INVDIV. 
HORIZONTAL SCALE: 50 MSEC/DIV. 

DISPLACEMENT PROBE NO. 21 
FLEXURE VIBRATION. TURBINE END 



VERTICAL SCALE: 0.001 INVDIV. 

HORIZONTAL SCALE: 50 MSEC/DIV. 

DISPLACEMENT PROBE NO. 3 

VIBRATION OF ROTOR RELATIVE TO CASING. 
TURBINE END 
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RANDOM VIBRATION INPUT LEVEL: 0.54 G RM$ 
ROTOR SPEED: ZERO 

HYDROSTATIC SUPPLY PRESSURE: - 


Fig. 144 Rotor And Bearing Component Vibrations Under Shaped Random Vibrations 
According To NASA Spec 417-2-C-3.5 
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